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1 ritmo de vida aumenta, la actividad se hace fre- 
nética y se acumulan los papeles. El médico se 
percata de que desperdicia su propia profesio- 
MKS&HF m nalidad compilando impresos, actualizando fi- 
chas y reconstruyendo historias clínicas El abo- 
gado s ® siente atrapado. El director necesita in- 
/ formaciones concisas en tiempo real, sin tener 

R que interpretar personalmente números, datos y 
'-I-' tablas. El empleado se ocupa del trabajo imper¬ 

sonal ligado a la correspondencia. Se hace cada vez más difícil 
gestionar montañas de datos, laberintos de informaciones y se 
siente una necesidad cada vez mayor de delegar un trabajo tan 
necesario, pero enojosamente repetitivo, al que sepa hacerlo rá¬ 
pido y bien. Una ayuda válida existe ya en la actualidad y es la 
que proporciona el ordenador, una máquina lógicamente un tanto 
sofisticada y en evolución, pero que no puede ignorarse. 

Cada aplicación del ordenador con respecto a las problemá¬ 
ticas de gestión gravitan en torno a una organización de datos. 
Las bases de datos, esas desconocidas, podemos imaginarlas 
como un criterio de organización de la información y una meto¬ 
dología de utilización, así como en una organización de transpor¬ 
tes aéreos existen los medios y las rutas que permiten su empleo. 
Este elemento fundamental de la informática fue y es objeto de 
profundas investigaciones, algunas en el ámbito del proceso elec¬ 
trónico de datos, debido a la gran demanda en el mercado. Ya se 
ha hecho mucho a este respecto y cada ordenador construido para 
aplicaciones de gestión está organizado de modo que facilita la 
tarea del proyectista de bancos de datos, tanto desde el punto de 
vista estructural para el acceso a las memorias de masa como por 
el software de base especializado para estas aplicaciones. 




Pero ¿qué se puede hacer con un ordenador personal? ¿Qué 
permiten los límites naturales de memoria y cuáles de los con¬ 
ceptos y soluciones técnicas adoptados en el ordenador de nivel 
superior se pueden aplicar? Este es el núcleo fundamental de 
nuestro libro, que se propone aclarar, en la medida de lo posible, 
tales conceptos con un ejemplo de base’ de datos para su orde¬ 
nador personal. Antes de ello, consideramos necesario "refrescar" 
algunos principios teóricos de la organización de datos y refle¬ 
xionar sobre cuáles pueden ser los escollos consiguientes en el 
ámbito del ordenador personal. 

No pretendemos difundir un texto de opinión y consideramos 
más importante el aspecto instructivo que lo que una realización 
práctica puede ofrecer al lector. 

Con este volumen finaliza la Biblioteca Básica Informática. 
Queremos agradecerles a todos ustedes el apoyo y el aliento que 
siempre nos han ofrecido. Esperamos haberles correspondido 
adecuadamente y seguirles encontrando en las demás publica¬ 
ciones de Editorial Ingelek. 
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UN POCO DE TEORIA 


M 1 ordenador está constituido por tres partes prin- 
/HÜB cipales: un instrumento lógico (CPU o unidad 
central), la memoria con la que trabaja y los dis- 
/ mmt m P° sitivos a través de * os cuales se comunica con 
/ m I m el mundo exterior. La memoria con posibilida- 

des acceso directo desde la CPU está limi- 
tada por motivos de costes y por el tipo de uni- 
/ wS'-il dad cen,ral No obstante, se dispone de memo- 

i ..../ rías de masa de gran capacidad para superar 

esta limitación, tales como discos, cintas magnéticas, etc. En tal 
caso los accesos son mucho más lentos, porque el tratamiento sólo 
es posible transportando primero los datos desde estas memorias 
auxiliares a la memoria interna. De aquí nace la problemática de 
la gestión de datos, que consiste en encontrar la solución de com¬ 
promiso entre costes, tiempos y metodología. 

Comenzamos por indicar cuáles son los principales proble¬ 
mas planteados en el proyecto de un banco de datos, en los ca¬ 
sos más generales, y a continuación veremos cómo aplicar el es¬ 
tudio teórico a nuestro caso, esto es, a la aplicación en el ordena¬ 
dor personal. El primer problema que se plantea es cómo organi¬ 
zar los datos, es decir, qué tipo de estructura lógico-física se adap¬ 
ta mejor a las exigencias que nuestro archivo trata de superar. La 
estructura física caracteriza el modo en el que los datos están fí¬ 
sicamente representados en la memoria del ordenador. Por el con¬ 
trario, la estructura lógica, con independencia de la estructura fí¬ 
sica de almacenamiento, constituye la representación de los da¬ 
tos tal como se "ven” por el usuario del sistema. 

Las informaciones que almacenamos en un archivo pueden 
considerarse como grupos de informaciones de base, entre las 
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cuales existen relaciones lógicas que las ponen en correlación. La 
estructura lógica de un archivo indica cuáles son los datos ele¬ 
mentales y sus grupos, cuáles son las relaciones entre datos para 
formar los grupos y cuáles son las relaciones entre los grupos que 
forman el archivo. 

Mucho más complejo es lo que se refiere a la estructura físi¬ 
ca. La elección de esta última depende, sobre todo, del hardware 
de que se disponga, del tipo de proceso que se quiere desarro¬ 
llar y de los tiempos de acceso a la información necesarios para 
que esta última no pierda validez. 

Los parámetros principales para la elección de una estructu¬ 
ra física en lugar de otra son: 

• Eli iíicierte de densidad, dado por la relación entre el es¬ 
pacio de memoria ocupado por las informaciones y el es¬ 
pacio total del archivo (incluyendo también las informacio¬ 
nes complementarias para la extracción de los datos prin¬ 
cipales). 

• La longitud de búsqueda, es decir, el número de accesos 
necesarios para obtener una información particular. 

• facilidad de actualización del archivo: eliminación, inser¬ 
ción o modificación de un dato. 

Los lipos más sencillo de estructura física son tres: secuen- 
cial, aleatoria y de listas. A continuación se expondrán las venta¬ 
jas y los inconvenientes y más adelante trataremos de estructuras 
de tipo más complejo. 


Estructuras secuenciales 

Este es uno de los métodos más conocidos y utilizados para 
la organización de los datos; su característica principal es que lo 
datos que componen el archivo están almacenados de forma se¬ 
cuencia! uno tras otro. Si consideramos la información subdividi¬ 
da en dos partes: atributo identificador o clave (código asociado a 
cada información que permite su referencia) y la información pro¬ 
piamente dicha, tendremos una sucesión ininterrumpida de pare¬ 
jas (véase figura 1). 




iFigura 1.—Estructura secuencia!. 


El problema de la búsqueda de una información particular 
I >uede resolverse de varios modos: 

• ,':.,qjóda completa: se tiene acceso a cada registro, me¬ 
diante una exploración, hasta encontrar la clave deseada o 
hasta recorrer todo el archivo. La longitud media de bús¬ 
queda, si N es el número de informaciones contenidas en 
el archivo, es (N+l)/2. 

• Búsqueda en cerie, se exige que el archivo esté ordenado 
por valores crecientes de la clave y se accede de forma se- 
cuencial a los datos hasta encontrar la clave buscada o bien 
una clave mayor que ella. La longitud media de búsqueda 
es N/2. 

• Búsqueda bin , también en este caso se requiere que el 
archivo esté ordenado. La búsqueda se realiza por sucesi¬ 
vas bisecciones del archivo, por lo que a cada paso se ac¬ 
túa sobre un número de datos igual a la mitad del paso an¬ 
terior. Se comienza por comparar la clave buscada con la 
que se encuentra a la mitad del archivo, si ésta es mayor 
se desecha la segunda mitad del archivo y si es menor se 
desecha la primera mitad. En el segundo paso se busca la 
clave que se encuentra a la mitad de la nueva parte de da¬ 
tos y se procede como en el paso anterior hasta encontrar 
o no el elemento. Este método es muy rápido y eficiente 
porque el número máximo de accesos para encontrar una 
clave, o para establecer que no existe, es Log 2 (N); por ejem¬ 
plo, para 1.024 registros el número máximo es 10. 

La estructura secuencial presenta unas notables ventajas de 
sencillez de gestión y de ocupación de memoria, no exigiendo in¬ 
formaciones suplementarias para la búsqueda del dato. Cón la 
búsqueda binaria se tiene también un acceso muy rápido, pero 
las operaciones de actualización son algo complejas, por cuanto 
la introducción de un nuevo registro exige una reordenación de 
todo el archivo o una fusión de los nuevos datos. Existen, sin em¬ 
bargo, varios algoritmos muy eficaces de ordenación (BUBLE- 
SORT, HEAPSORT, QUICKSORT, etc.). 


Estructuras aleatorias 


Las estructuras aleatorias, es decir, aquellas en las que no exis¬ 
te relación entre las direcciones de los diversos datos, obtienen 
directamente, a partir de las claves de acceso, las informaciones 
sobre la dirección del elemento. 
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Existe, pues, una "función de acceso" que permite obtener la 
dirección de la clave. Hay varios métodos de correlación: 

• Método de diccionario: permite el acceso al registro me¬ 
diante la previa lectura de la dirección en una tabla; es de¬ 
cir, se crea una matriz de correspondencia entre clave y di¬ 
rección. Se busca la clave en la tabla y se extrae también 
la dirección de la información correspondiente (véase figu- 

También es posible la subdivisión del archivo en varios 
subarchivos, con el almacenamiento de la clave más alta 
de cada subarchivo. La búsqueda se realiza primero en el 
diccionario, en el que se busca el subarchivo de pertenen¬ 
cia del dato, y luego en el subarchivo mediante uno de los 
métodos vistos para las estructuras secuenciales. 

• Método de cálculo o direccionamiento Hash: permite la uti¬ 
lización de archivos de acceso directo; la asociación clave- 
dirección se realiza mediante un algoritmo que extrae de 
la propia clave la dirección del dato correspondiente. El in¬ 
conveniente de este método es encontrar un algoritmo que 
proporcione un resultado uniformemente distribuido, de 
modo que no se produzca una superposición de registros 
y que no se tengan grandes zonas vacías. 


clnve 


archivo 



flW Figura 2—Estructura aleatoria; método del diccionario. 
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Algunos algoritmos HASH se basan, por ejemplo en: la di¬ 
rección viene dada por un subconjunto de bits de la clave; la 
dirección es la suma, bit a bit, de diversos subconjuntos de bits de 
la clave y la dirección es un subconjunto de bits del cuadrado de 
la clave. 

Una vez elegido el algoritmo de cálculo se trata de elegir un 
algoritmo de exploración del área direccionada para controlar me¬ 
jor la eventualidad de que dos o más claves den como resultado 
la misma dirección. Los más difundidos son los de: 

• Exploración lineal, caracterizada porque en caso de coli¬ 
sión se explora el archivo a partir de la dirección encon¬ 
trada de forma secuencial con un cierto paso >=1. 

• Exploración pseudoaleatoria, caracterizada porque los in¬ 
crementos de dirección con respecto al generado por el al¬ 
goritmo no son constantes, sino que son producidos por una 
subrutina que genera números enteros de manera aleatoria. 

• Exploración cuadrática, es un método similar al de la ex¬ 
ploración lineal, con la salvedad de que después de cada 
colisión para una clave el incremento se aumenta en l (es 
decir, a la primera colisión se tendrá un incremento de 1, a 
la segunda de 2, etc.). La variación de esté método para au¬ 
mentar su eficacia es la del cociente cuadrático, que con¬ 
siste en hacer variar el incremento con la clave, en lugar 
de que sea constante. 

• Método de concatenación, mediante el cual, una vez en¬ 
contrada la dirección con el algoritmo, si está libre se al¬ 
macena el dato y si no lo está se construye una cadena 
(cola) de elementos correspondientes a dicha dirección. A 
continuación veremos qué son las cadenas. 


Estructuras de lista 

En la estructura de lista, los registros están unidos entre sí me¬ 
diante punteros que, en cada elemento, indican la dirección del su¬ 
cesivo (véase figura 3). 

La lista tiene una cabecera que apunta al primer elemento y 
cada elemento apunta al siguiente, que puede estar ubicado en 
cualquier parte de la memoria (de masa o interna del ordenador) 
y no necesariamente en las proximidades, mientras que el último 
elemento tiene el puntero igual a 0. 

Las actualizaciones de una lista son bastante sencillas: 

• Inserción de un elemento X en una lista (figura 4). Se puso 
el ejemplo de la inserción en la cabecera de la lista porque 
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Figura 3.—Estructura de lista. 




JUPjy Figura 4.—Una lista antes y después de la inserción del elemento X. 


es más rápida, pero también una inserción en cualquier otro 
punto funciona del mismo modo, 

• Borrado de un elemento X de una lista (figura 5). 

Una posibilidad adicional de la estructura de lista es la lista 
bidireccional, en la que cada elemento contiene dos pun¬ 
teros, uno al elemento siguiente y otro al anterior (véase fi¬ 
gura 6). 

La búsqueda de un registro particular se realiza recorriendo 
la lista de la cabecera hasta encontrar el elemento deseado. Para 
el control de los elementos borrados y de los elementos libres 
para poder utilizarlos en las inserciones hay dos métodos princi¬ 
pales: 
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• Lista libre: es una lista formada por elementos vacíos; cuan¬ 
do se tiene necesidad de un elemento para insertar un re- 


CABECERA 


B 


C 


CABECERA 



Figura 5.—Una lista antes y después de eliminar el elemento X. 



CABECERA 


■' Figura 6.—Lista bidireccional. 


gistro, se le toma de la lista libre y cada elemento suprimi¬ 
do se inserta en ella de modo que se pueda reutilizar. 

• Garbage collection ("recogida de desechos"): los elemen¬ 
tos borrados no se tienen en cuenta y, de forma periódica, 
un programa examina toda la memoria del archivo y reúne 
estos elementos no utilizados en una lista. 

La estructura de lista tiene el defecto de que se necesita 
memoria suplementaria para los punteros y de que el tiem¬ 
po de búsqueda depende, en gran medida, de la longitud 
de la lista. 


Estructuras más complejas 

Para los problemas que no tienen una solución eficiente con 
las estructuras hasta ahora vistas, se han estudiado otras estructu¬ 
ras más complejas. 

• Estructuras de listas invertidas: si se quisieran recoger gru¬ 
pos de informaciones en listas ordenadas según diversos 
parámetros (véase figura 7) se tendría un despilfarro de me- 
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moría por cuanto que sería necesario un puntero por cada 
tipo de lista. Un método mejor es el de definir por cada ele¬ 
mento (en el ejemplo, por cada persona) un conjunto de 
atributos (título de estudio y ciudad) y se crea luego un ín¬ 
dice (véase figura 8) que contiene la identificación de los 
atributos y los valores correspondientes a cada elemento 
que tiene ese atributo, de modo que cada elemento se re¬ 
duzca a un registro único en una determinada dirección. 



Jipi 1 Figura 8.—Estructuras de listas invertidas. 
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En este punto es posible realizar una búsqueda de los re¬ 
gistros según uno cualquiera de los atributos definidos, con 
el empleo de punteros introducidos en la tabla de índice. 
La ventaja de las listas invertidas es que permiten tener ac¬ 
ceso a todos los datos con la misma facilidad y con una ma¬ 
yor rapidez, por cuanto que se efectúan las búsquedas so¬ 
lamente en los índices y luego se realiza un acceso directo 
al registro buscado. 

• Estructuras en anillo: se trata de una ampliación de las lis¬ 
tas simples en las que el último elemento, en lugar de te¬ 
ner un puntero nulo, apunta al primer elemento de la lista. 
Permiten también ramificaciones de cualquier registro para 
individualizar otros datos en correlación con el mismo (fi¬ 
gura 9), con la construcción de las denominadas estructu¬ 
ras jerárquicas. Estas estructuras permiten representar rela¬ 
ciones complejas y la búsqueda de los datos a partir de 
cualquier punto del archivo. 

• Estructuras de listas múltiples: estas estructuras recuerdan 
mucho a las invertidas, con la salvedad de que en corres¬ 
pondencia con los atributos se almacena solamente la di¬ 
rección de comienzo de la sublista y su longitud; además, 
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la memoria en la que están registradas las sublistas está 
subdividida en bloques (figura 10). Cada registro está di- 
reccionado por el número del bloque y por la dirección en 
su interior. Cuando se busca un elemento se recupera con 
un solo acceso el bloque completo, por lo que se puede 
ahorrar tiempo y, por consiguiente, es preferible almace¬ 
nar los datos, en la medida que sea posible, en un mismo 
bloque. En la figura 10 se muestra un ejemplo en el que las 
listas correspondientes a los atributos INGENIERO y BAR¬ 
CELONA son 4 y 3 respectivamente y comienzan una de 
ellas en el bloque 0 con el elemento 3 y la otra en el blo¬ 
que 0 pero con el elemento 5. Además, se ve que pueden 
existir elementos como el 7 que sean comunes a varias lis¬ 
tas. Las listas múltiples, con respecto a las listas invertidas, 
tienen la ventaja de ser de más fácil actualización y pro¬ 
gramación, pero traen consigo tiempos más largos de bús¬ 
queda debido al recorrido de las listas. 

• Estructuras en árbol: son de gran utilidad cuando se nece¬ 
sita que los datos estén organizados de modo jerárquico. 
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Un árbol puede definirse como un gráfico conexo provisto 
de circuitos cerrados y constituido por un cierto número 
de nudos o nodos (las informaciones) conectados por lí¬ 
neas, con la propiedad de que dos nodos cualesquiera es¬ 
tán unidos por un solo camino y de que un árbol con N no¬ 
dos contiene N-l líneas. 

El primer nudo se denomina raíz. Un árbol se llama binario 
si a partir de cualquier nudo salen, como máximo, dos lí¬ 
neas o ramas (figura 11). Cada nudo en un árbol binario pue¬ 
de representarse como el conjunto del dato junto con los 
punteros de las dos ramas derecha e izquierda (figura 12). 
El recorrido de un árbol binario ("vista de un árbol”) puede 
realizarse de tres modos: 

— Orden previsto: examen del nudo raíz, examen del sub¬ 
árbol de la izquierda y examen del subárbol de la de¬ 
recha (en el ejemplo, el orden sería ABDECFGH); 

— Orden simétrico: examen del subárbol de la izquierda, 
examen del nudo raíz y examen del subárbol de la de¬ 
recha (en el ejemplo, DBEAFCHG); 

— Orden diferido: examen del subárbol de la izquierda, 
examen del subárbol de la derecha y examen de la raíz 
(en el ejemplo, DEBFCHGA). 

Una estructura en árbol binario tiene la propiedad de que el 
subárbol izquierdo de cada nudo contiene solamente datos cuya 



Figura 10.—Estructuras de listas múltiples. 


Figura 1 ¡.—Estructura en árbol. 







clave es inferior a la del dato de dicho nudo, mientras que el 
subárbol derecho contiene solamente claves mayores. La búsque¬ 
da o el almacenamiento es bastante simple, por cuanto que en 
cada nudo resulta inmediata la elección del camino a seguir hasta 
encontrar el dato o una rama libre en donde almacenarlo. 
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APLICACION A UN ORDENADOR PERSONAL 



n ordenador personal está constituido por unos 
componentes que tienen las mismas funciones 
lógicas que en un ordenador tradicional, es de¬ 
cir, unidad central, dispositivos de Entrada/Sa¬ 
lida, (E/S o, en inglés, I/O) y memoria, en par¬ 
te de acceso directo (RAM: Random Access 
Memory) y en parte de masa. Los costes mo¬ 
derados y el empleo al que está dirigido el or- 
denador personal han orientado a los fabrican- 
k js a la elección de CPUs de 8 bits generalmente. Por consiguien¬ 
te, la memoria directamente direccionable varía entre 4 y 64 
Kbytes, por lo que considerando que una parte de esta capacidad 
de memoria es utilizada para funciones internas (intérprete, siste¬ 
ma operativo, etc.), no queda memoria suficiente para tratar el nú¬ 
mero de informaciones necesarias para una base de datos en RAM, 
salvo para archivos mínimos. 

Es pues inevitable la necesidad de emplear soportes de me¬ 
moria externos, los cuales habrán de tener un acceso relativamen- 
le rápido y, sobre todo, una lógica de control que deberá permitir 
acceso directo a la información elemental puesto que, de no 
ser así, las lecturas secuenciales tendrían un efecto desfavorable 
sobre los. tiempos. No consideramos, pues, la hipótesis de utilizar 
un soporte secuencial tal como las cintas magnéticas, sino sola¬ 
mente los discos flexibles, que consideramos los soportes más vá¬ 
lidos para una aplicación informativa ligada con la base de datos. 
I in la mayor parte de los ordenadores personales, las unidades de 
disco pueden admitir entre 180 y 500 Kbytes en línea, es decir, 
con toda la información con posibilidad de acceso directo sin in- 
lervención manual para cambio de disco. 
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Volvamos en este punto a los conceptos teóricos para cons¬ 
tatar cuánto y con qué resultados son aplicables a los ordenado¬ 
res personales los métodos anteriores. 

• Estructura secuencial: al ser la más simple sería aparente¬ 
mente la más adecuada para nuestro caso; sin embargo, al 
realizar informaciones con longitud variable, con el consi¬ 
guiente empaquetamiento de los datos, los tiempos de ac¬ 
ceso hacen pesado el tratamiento y las exploraciones pro¬ 
longadas dan lugar a mayores solicitudes de la unidad de 
masa. Estructuras de dicho tipo sbn preferibles para datos 
utilizables en bloques, es decir, una serie de datos que sean 
objeto de lectura, tratamiento y escritura siempre en con¬ 
junto. 

• Estructura aleatoria: Para los ordenadores personales que 
permiten el acceso directo al registro en disco, esta solu¬ 
ción resulta óptima por cuanto que el proceso necesario 
para obtener la dirección de la clave no es problemático 
en absoluto y el acceso a una información individual se 
hace casi inmediato. El método del diccionario exige ma¬ 
yor espacio en disco para el almacenamiento de los pares 
clave-dirección, que pueden estar todos ellos en memoria 
o bien en disco en el momento de su proceso. En el primer 
caso resulta necesario cargar todo el diccionario en memo¬ 
ria al comienzo, con lo que utiliza los tiempos de las bús¬ 
quedas sucesivas; en el segundo caso se puede efectuar 
una búsqueda binaria directamente en el disco, mantenien¬ 
do el diccionario ordenado por claves. Esta organización, 
que es muy cómoda en las fases de búsqueda y modifica¬ 
ción de la información, es un poco más honerosa durante 
las introducciones y borrados, porque se necesitará en cada 
ocasión la reestructuración del diccionario. El método 
HASH, aunque sea algo problemático en el tratamiento de 
los bits para el cálculo de la dirección en BASIC, es bastan¬ 
te eficaz en lo que respecta a los tiempos de acceso cuan¬ 
do el archivo no está llenado en más del 75 por cien. Es¬ 
pecialmente simplificadas resultan todas las fases de ges¬ 
tión, pero tendrá una utilización deficiente la memoria de 
masa. 

• Estructuras de listas: para las aplicaciones con ordenador 
personal representan una sofisticación, pero pueden resul¬ 
tar de utilidad y eficacia si se conectan a una estructúra 
base de otro tipo, por cuanto permiten un ahorro de me¬ 
moria y una mayor sencillez de gestión. Por ejemplo, en la 
elaboración de un archivo médico resulta posible asociar 
a una serie de datos personales una lista de longitud varia¬ 





ble, según el paciente de que se trate, que contenga los da¬ 
los correspondientes a las diversas visitas (figura 1). Los 
punteros pueden introducirse bien sea físicamente en el in- 
lerior del registro, bien por separado en el fichero corres¬ 
pondiente, bien conectados de forma lógica al que contie¬ 
ne las listas, como se realizará en el ejemplo propuesto. 

• Estructuras más complejas: aunque sea posible su realiza¬ 
ción no resultan recomendables para las aplicaciones prác- 
licas en un ordenador personal. Ello es así porque el au¬ 
mento de dificultad en la gestión de los datos no está com¬ 
pensada por un suficiente incremento de eficacia. Además, 
los bancos de datos realizables no pueden tener una di¬ 
mensión que justifique una sofisticación de esta naturaleza. 


Definición de la aplicación 

El ejemplo de aplicación ha de ser de uso generalizado y que 
■ ilisfaga las exigencias más concretas con un solo programa, es- 
i ni liado de modo que sea flexible y adaptable. 

Consideremos algunas de las exigencias típicas: 

• El archivo de las historias clínicas consiste en la estructu¬ 
ración de un fichero, constituido por grupos de datos co¬ 
rrespondientes a cada paciente de los que no se conoce a 
priori su longitud, por cuanto que la historia clínica puede 
ser variable. El médico tiene necesidad de un instrumento 
que le permita: 

1) introducir nuevos pacientes 

2) actualizar la situación 

3) conocer todos los datos patológicos 

4) extraer relaciones y situaciones siempre actualizadas. 


ROJO 

BLANCO 















i 

16/1/80 
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28/3/80 
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15/7/78 

1 



Figura 1— Ejemplo de archivo de datos fijos, con listas conectadas 
a variables de datos. 
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• Para la gestión de ventas con agentes es preciso conocer; 
además de las informaciones generales sobre los volúme¬ 
nes de venta, informaciones más detalladas relativas a cada 
representante. Asimismo, podría ser interesante conocer 
estadísticas de venta por representante y por artículo. 

• La gestión de los contactos con posibles clientes prevé la 
definición de las características personales y la posibilidad 
de seguir el desarrollo de las negociaciones y de la adqui¬ 
sición de pedidos. 

Algo similar podría aplicarse a la gestión de órdenes, pedi¬ 
dos, etc. Todas las aplicaciones ilustradas tienen en común el he¬ 
cho de que las informaciones están constituidas por una parte fija 
o de base, a la que se agregan informaciones suplementarias. En 
las fichas clínicas los datos base son las informaciones personales 
y los datos suplementarios, o auxiliares, los resultados de las di¬ 
versas visitas. 

Decidimos, pues, la conveniencia de trabajar en un archivo 
cuya estructura lógica esté constituida por un conjunto de grupos 
de datos principales a los cuales se pueden asociar cantidades va¬ 
riables de otras informaciones. 


Estudio de viabilidad 

Para poder realizar un estudio de viabilidad del programa es 
necesario coocer el sistema con el que trabajamos. 

El EUROPLUS de Apple II está provisto de un intérprete Basic 
de coma flotante en ROM y de hasta 48 Kbytes de memoria RAM, 
en donde reside el programa del usuario y, si se utilizan los dis¬ 
cos flexibles, el sistema operativo de discos DOS que ocupa 10 
Kbytes. Hay posibilidades de conexión de hasta 12 unidades 
"floppy”, cada una de las cuales puede contener 116 Kbytes. Al 
ser el sistema operativo residente en cada disquete, se dispone 
de 100 Kbytes para su utilización. 

Lo anterior nos impone una limitación en el número de regis¬ 
tros almacenables en cada disco; al no querer (aunque sea posi¬ 
ble) gestionar ficheros multivolumen, estructuraremos el archivo 
base en un solo disquete y, por consiguiente, el número de regis¬ 
tros suceptibles de gestión será 100 K/longitud del registro. Al te¬ 
ner la posibilidad de acceder en modo directo a los registros! por 
número de orden, podemos utilizar para el archivo base la estruc¬ 
tura aleatoria con el método del diccionario, construyendo un ín¬ 
dice que contiene todas las claves de acceso y la dirección co¬ 
rrespondiente, dada como número del registro. Además, es posi- 


i .|i h realización de una estructura de listas y podemas construir 
.o varias listas que terminen en un registro base. 

I ;i DOS 3.2 permite la utilización de fichero, sin tener que de- 
iiiui las características físicas (tales como longitud de registro, es- 
I iiii 'io, etc.), por lo que resulta sencillo emplear ficheros de des- 
i n| Miión de la “personalización" y del estado del sistema. 

I rila asignación dinámica del espacio nos permite una nota- 
H*. Il<-xibilídad de configuración y podremos elegir entre diver- 
Mttt soluciones. 

I ,.i estructura global (figura 2) constará de: 

• Un archivo base, que contiene datos físicos no ordenados. 

• Un índice principal, que contiene las claves y las corres¬ 
pondientes direcciones de los registros base. Este fichero 
deberá mantenerse ordenado por claves crecientes. 

• Ocasionales índices secundarios para permitir el acceso a 
los registros base según otros campos. 

• Uno o varios archivos organizados en listas con conexión 
lógica a los registros base. . 

Según las exigencias particulares, bastará "personalizar" la 
i n iliguración, eligiendo el número de unidad a utilizar. Así pode¬ 
mos, en caso de que tengamos pocos registros base y no quera- 


INDICE REGISTRO BASE LISTAS 



INDICES ADICIONALES 
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MgB l'igura 2—Estructura general de nuestro archivo. 
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lPSORT 


RETURN 


L - INT (NX/2) + 1 


IAS< IXS(J) 


Figura 3.—Diagrama de flujo de la rutina HEAPSORT. Los números 
junto a algunos bloques se refieren a las lineas asociadas del listado. 


ni":; índices secundarios ni listas, ubicar todo el archivo en un solo 
i h;;. |uete. Para mayores necesidades, se podrá reservar el primer 
i Ii:;i :<> para el archivo base y el índice principal, mientras que las 
, i • y los índices secundarios irán en el segundo disco. Asimis- 
III", los índices secundarios podrán ser objeto de gestión con el 
i mpleo de una tercera unidad. El hecho de tener las listas en una 

.dad especializada permite disponer de más grupos de listas 

I m ir cada registro base, con el simple cambio del disquete de la 
unidad. Por ejemplo, es posible asociar al mismo archivo base 
iiii.is listas mensuales. 


Rutinas de utilidad práctica 

En el curso del estudio técnico y de viabilidad,, se hizo alu- 
iii'in a la necesidad de ordenación y de búsqueda binaria. Ahora 
lineemos mención de las rutinas que ordenan un vector de N ele¬ 
mentos y que realizan la búsqueda binaria en tal vector. Hemos 
i legido dos rutinas cuyos algoritmos fundamentales son debidos 
ni Knuth. 

l( mpsort (figuras 3 y 4) es uno de los algoritmos más rápidos; 
inmo la característica de emplear un tiempo casi constante cual¬ 
quiera que sea la configuración inicial del vector. El proceso se 
unbdivide en dos partes: 


i reh mmtmmitittmtiiiti 

. REM I SUBRUT1NA DE ORDENACION « 
l REM I EJEMPLO » 

4 rem imimmtmimmmit 
Mu IF NX=1 THEN RETURN 
MR L=INT(NX/2)+l: R=NX 
l,: , 0 !F L>1 THEN L=L-l:PA=PI7.(L)-.GOTO 540 
pa=pix(R>¡pix (R)=Pixn):R=R-i 
Mu IF R=1 THEN P17.(1!=PA¡RETURN 
540 J=L 
1,45 I=J:J=2SJ 

!,l,0 IF J>R THEN PIX(11 =Pfi:GOTO 520 
1Í1S5 IF JTR THEN GOSUB 600 

llbO IF ISíIPAI < IX>(PIX(J)) THEN PI7.(I)=P17.(J)¡GOTO 545 
565 PIX(I)=PA:GOTO 520 

y f Figura 4.—Listado de la rutina HEAPSORT. 
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• Una fase preparatoria rápida, en la que se construye un 
“heap" ("montón”). 

• Una fase sucesiva de ordenación propiamente dicha. 

La rutina ordena un vector IX$ de claves alfanuméricas que 
contiene NX elementos, manteniendo la asociación con el corres¬ 
pondiente vector IX% de direcciones (enteras). El flujo no resulta 
estructurado, lo que propicia una mayor velocidad de ejecución 
y un mayor espacio de memoria. 

El algoritmo de búsqueda binaria (figura 5), anteriormente 
descrito, actúa sobre el vector IXS, buscando en el mismo la clave 
suministrada en KM$ y dejando en F el resultado de la búsqueda 
y en P el índice del elemento, si existiera. 



too reh mmutuntmtnmnmu 

602 REH « SUBRUTINA BUSQUEDA BINARIA t 

603 REH t EJEMPLO * 

60 A REH llItlIltttlimtmimtHHtt 
610 F = 0: L = 1: N = NX 

630 IF N < L THEN RETURN : REH ND ENCONTRADO 
640 P = INT <(L + N) / 2) 

650 IF KHÍ < IM THEN H = P - t:G0T0 630 
660 IF UNÍ > IXÍ THEN L = P* 1:G0T0 630 
670 F = [¡RETURN: REH ENCONTRADO 


Figura 6.— Listado de ¡a rutina para búsqueda binaria. 


Figura 5.—Diagrama de ¡lujo de la rutina por la búsqueda binaria. 
Los números se refieren a las líneas del listado asociadas. 





ARQUITECTURA DE LA BASE DE DATOS 


I ‘ i* -im *1 M na vez conocidos l° s criterios generales de la 
JsllBí ■ estructura de datos, descritos en los dos pri- 
m meros capítulos, vamos a profundizar en el es- 
W # tudio de la viabilidad para definir la arquitec- 
•' 'j/JBÍm ,ura de la base de dalos sobre la cual elaborar 
rallr e * P r0 9 rama de gestión En este capítulo ten 
dremos que ser necesariamente más prácticos 
|HH y utilizar los instrumentos de hardware-software 

/ / disponibles en el ordenador personal, en nues¬ 

tro caso concreto del Appel II Plus. De la enojosa teoría pasamos 
al diseño lo que es ciertamente más estimulante. 

El D.O.S. Apple 

Además del lenguaje de programación BASIC es necesario 
conocer cuáles son las posibilidades funcionales del sistema Ap¬ 
ple en el tratamiento de la información en los discos flexibles. 

El sistema objeto de examen tiene una estructura de hardware 
flexible y ampliable, disponiendo de ocho ranuras (“slots”) de sa¬ 
lida no dedicadas a la conexión de periféricos específicos, la ex¬ 
cepción son la ranura o slot 0, que está concebida para expansio¬ 
nes del lenguaje, y la número 7, reservada a la tarjeta PAL para 
visualización de colores. Las seis ranuras restantes pueden utili¬ 
zarse indiferentemente para conectar impresoras, unidades para 
discos y otros tipos de periféricos. Cada interface para disco fle¬ 
xible puede controlar dos unidades. Para tener acceso a las infor¬ 
maciones residentes en un disco es necesario, en caso de que 
puedan detectarse ambigüedades, definir lo que se denomina ra- 






nura y unidad de disco de pertenencia. Además, en un disco fle¬ 
xible pueden coexistir informaciones relativas a programas alma¬ 
cenados, zonas de memoria en formato binario y ficheros de da¬ 
tos de tipo secuencial o aleatorio, es decir, con subdivisión en re¬ 
gistros de longitud fija. Las modalidades de tratamiento son dife¬ 
rentes para cada categoría; para nuestros fines, será suficiente co¬ 
nocer el tratamiento reservado a los programas Applesoft y a los 
ficheros de datos. 

Cada grupo de informaciones, o ficheros, se identifica por un 
nombre de 30 caracteres como máximo y así se puede efectuar 
la llamada de programas o tener acceso a los archivos directa¬ 
mente por su nombre. 

La gestión de los programas es especialmente sencilla: des¬ 
pués de haber escrito el programa en la memoria del sistema me¬ 
diante el teclado se le puede grabar escribiendo SAVE<nombre>, 
cargarlo desde el disco a la memoria del ordenador Apple escri¬ 
biendo LOAD<nombre>, ejecutarlo escribiendo RUN<nombre> 
o simplemente RUN si el programa está ya en memoria. 

Los ficheros de datos (texto) se dividen en dos categorías: 

• Ficheros secuenciales, en los cuales las informaciones in¬ 
dividuales están dispuestas de forma consecutiva y sepa¬ 
radas por un carácter de fin de campo CR, Carriage Retum 
(Retorno del carro) (figura 1). 

En tal caso, al tener que cambiar un dato por otro de lon¬ 
gitud mayor, será necesario volver a escribir todo el fiche¬ 
ro. Por el contrario, un fichero secuencial optimiza el espa¬ 
cio en disco y puede ser de utilidad para almacenar pará¬ 
metros fijos, definidos en una ocasión y actualizados sólo ra¬ 
ras veces. 

• Ficheros aleatorios (file random), en los cuales el conjunto 
de datos está subdividido en registros de longitud fija que 
contienen uno o varios campos separados también por un 
retorno del carro (figura 2). Para actualizar un dato es sufi¬ 
ciente volver a escribir el registro correspondiente; ade¬ 
más, es posible tener acceso directo a un registro por su 
número, sin tener que explorar todos los datos de forma se¬ 
cuencial. 



BBBBBIBBBBBBBBBBBB 



gü! Figura 1.—Ejemplo de fichero secuencial. 
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BYTES UBRES 

111 __ 


’r: / Figura 2.—Ejemplo de fichero aleatorio de 12 bytes. 


Para el tratamiento de los ficheros de datos, definiremos cua- 
ro funciones esenciales: 

• OPEN: permite abrir un flujo informativo con un fichero re¬ 
sidente físicamente en un cierto disco y, además, si la es¬ 
tructura del fichero es de tipo aleatorio, permite definir tam¬ 
bién la longitud del registro. 

Ejemplo: 

Secuencial OPEN<nombre> 

S<número ranura> 

D<número unidad> 

Aleatorio OPEN<nombre> 

LClong. reg> 

S<número ranura> 

D<número unidad> 

• READ: permite indicar a partir de qué fichero se efectuará 
la siguiente lectura de datos con la sentencia INPUT de BA¬ 
SIC. En el fichero secuencial la primera lectura (input) será 
la relativa al primer dato y las sucesivas se referirán a los 
datos consecutivos. En un fichero aleatorio el criterio es 
idéntico pero relativo al registro individual, es decir, es ne¬ 
cesario definir en la función READ también el número del 
registro en que se ha de efectuar la lectura. 

Ejemplo: 

Secuencial READ<nombre> 

Aleatorio READ<nombre> 

RCnúm. reg> 
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• WRITE: permite identificar en qué fichero se efectuará la si¬ 
guiente escritura de datos con la sentencia PRINT de BA¬ 
SIC. También en este caso las escrituras son consecutivas 
desde el comienzo del fichero o enésimo registro depen¬ 
diendo del tipo de fichero secuencial o aleatorio. 

Ejemplo: 

Secuencial WRlTE<nombre> 

Aleatorio WRITE<nombre> 

R<núm. reg> 

• CLOSE: permite cerrar un flujo informativo y asegura la es¬ 
critura de las informaciones anteriores. En tal caso, no exis¬ 
ten diferencias sintácticas entre ficheros secuenciales y 
aleatorios. 

Ejemplo: 

Secuencial CLOSE<nombre> 

Aleatorio CLOSE<nombre> 

Todos los comandos de control de flujo antes citados, para 
ser identificados y ejecutados por el DOS (sistema operativo de 
control de disco) deberán aparecer como argumento de una sen¬ 
tencia PRINT precedidos por el carácter de control CONTROL-D, 
equivalente a CHR$(4). El sistema operativo de disco (DOS) de 
Apple permite muchos otros comandos de control, pero conside¬ 
ramos suficientes los cuatro descritos para la gestión de la base 
de datos objeto de examen; los lectores interesados por esta ma¬ 
teria podrán encontrar una exposición exhaustiva en el manual 
DOS 3.2 Apple. Concluimos con un ejemplo completo de senten¬ 
cia BASIC de control DOS: 

10 PRINT CHR$(4)"WR1TE PULPO,R12" 


Estructuración de la base de datos 


Como se comentó con anterioridad el objetivo que se persi¬ 
gue es organizar un archivo de base de datos accesible con úna 
clave preferencial y, supongamos, cuatro claves secundarias, que 
pueda conectarse a un segundo archivo controlado de listas, en 
correlación lógica con los registros de base. Existen, pues, en un 
primer análisis, los archivos lógicos siguientes: 




• Un archivo Base con el índice principal (MASTER INDEX) 
y los índices secundarios correspondientes. 

• Un archivo de lista completo de los datos necesarios para 
la gestión. 

Detengámonos en el archivo Base tratando de averiguar cómo 
puede estructurarse desde el punto de vista físico. 

Todas las informaciones del archivo Base, es decir, los datos 
correspondientes a los diversos campos que constituyen los di¬ 
ferentes registros, pueden ser recogidas en un fichero que llama¬ 
remos MASTER FILE(MST.FL) de tipo obviamente aleatorio para fa¬ 
cilitar las operaciones de escritura, lectura y modificación. La lon¬ 
gitud del registro Base será, pues, la suma de las longitudes de 
los correspondientes campos con el correspondiente carácter CR 
de final de campo (figura 3). 

Para hacer más rápidas las operaciones de acceso, introduc¬ 
ción y eliminación del registro Base no mantendremos dicho fi¬ 
chero ordenado, sino que tendremos acceso al mismo utilizando 
un diccionario de claves-punteros que constituye un fichero MAS¬ 
TER INDEX (o MST.INX) que, a diferencia con el anterior, manten¬ 
dremos siempre ordenado y presente tanto en la memoria como 
en disco (figura 4). 


CLAVE 

PRIORITARIA 


i 



1 Figura 3.—Estructura aleatoria del fichero MASTER FILE. 
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f v y Figura 4.—Acceso con el método del diccionario. 


Los dos ficheros están físicamente separados aunque, desde 
el punto de vista lógico, constituyen un archivo único e indivisi¬ 
ble, teniendo que acceder siempre al diccionario para conseguir 
de forma ordenada las informaciones del archivo Base. De este 
modo sólo es posible el acceso mediante clave, es decir, por me¬ 
dio del primer campo del registro Base, supuesto como identifi- 
cador prioritario. 

Nada nos impide construir posteriores diccionarios clave- 
puntero, en donde la clave pueda ser uno cualquiera de los cam¬ 
pos del registro Base; consideramos que cuatro índices auxiliares 
pueden ser suficientes (figura 5). 

Por supuesto, en una estructura multiacceso de este tipo re¬ 
sultan complejas y largas las fases de introducción y eliminación, 
teniendo no solamente que actualizar el registro único del MAS¬ 
TER FILE y reordenar el MASTER INDEX, sino efectuar también 
una operación análoga con todos los ficheros índice auxiliares. 
Para hacer más rápido el procedimiento, tendremos siempre ac¬ 
tualizado el ficher MASTER INDEX y permitiremos la actualización 
de los índices auxiliares solamente con un comando explícito. 



INDICE (INDEX 1) 
CORRESPONDIENTE 
Al CAMPO 1 


INDICE 2 

CORRESPONDIENTE 
Al CAMPO J 


MASTER INDEX 
CORRESPONDIENTE 
Al CAMPO 1 


INDICE 3 

CORRESPONDIENTE 
Al CAMPO K 


INDICE 4 

CORRESPONDIENTE 
AL CAMPO L 


' Figura 5—Archivo multiacceso con el método del diccionario. 
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La estructura del archivo Base comienza a tomar consistencia 
y nos falta ahora un fichero auxiliar en donde almacenar el estado 
de la base de datos, es decir: 

® El número de registros válidos NX. 

• El número de elementos asignados EA, que es la suma de 
los elementos válidos y de los eliminados. La intercalación 
prevé ocupar el espacio que queda disponible a partir de 
los eliminaciones y solamente al agotarse este último asig¬ 
nar nuevos elementos. 

• La existencia o no de un archivo controlado de listas, con 
su definición por un indicador de cadena FL (flag-link). 














El tipo de impresora conectada PT (0 para conexión en pa¬ 
ralelo, 1 para conexión en serie). 

El número de columnas suceptibles de control por la im- 
presona CN. 

El indicador de disco lleno DF. 

El número del campo asociado al primer índice auxiliar IA 

a°). 

La longitud de la clave (ocasionalmente truncada) corres¬ 
pondiente al primer índice auxiliar IA (1,1). 

La validez del primer índice auxiliar IA (1,2) 


y otras informaciones análogas correspondientes a los tres últimos 
casos, pero relativas al índice auxiliar segundo, tercero y cuarto. 

Son, pues, en total 18 los parámetros que permiten determinar 
de forma estable el estado del archivo y dichos parámetros se al¬ 
macenarán en un fichero secuencial que denominaremos BASE 
DATOS CONTROL o, de forma abreviada BD.CTRL. En resumen, 
para la gestión de la base de datos tendremos: 


BD.CTRL 

MST.INX 

MST.FL 

INDEX. 1 

INDEX.2 

INDEX.3 

1NDEX.4 


control de la base de datos, fichero secuencial. 
diccionario prioritario, fichero aleatorio, 
archivo de datos, fichero aleatorio, 
primer diccionario auxiliar, fichero aleatorio, 
segundo diccionario auxiliar, fichero aleatorio, 
tercer diccionario auxiliar, fichero aleatorio, 
cuarto diccionario auxiliar, fichero aleatorio. 


Una vez definida la estructura del archivo Base, vamos a con¬ 
siderar ahora la forma en que se puede conseguir una gestión de 
lista y cómo estructurarla para un control fácil y rápido. 

A partir del estudio teórico anteriormente desarrollado se de¬ 
duce que una gestión de lista exige punteros que conecten los re¬ 
gistros entre sí y con la cabecera de la lista. En nuestro caso, la 
cabecera de la lista es lógicamente cada registro base individual 
y de aquí la necesidad de asignarles un puntero. No obstante, una 
solución de tal naturaleza obliga a asignar espacio en el fichero 
MASTER FILE, incluso en las aplicaciones en las que se quiera re¬ 
nunciar a la gestión de listas. 

En este caso, se prefiere una solución alternativa que, además, 
permite hacer más rápida la gestión sucesiva. En vez de tener los 
punteros dirigidos a las listas en el interior de los registros pode¬ 
mos considerar su extracción y la elaboración de un fichero alea¬ 
torio (que denominaremos L1NK ENTRY o LNK.ENTRY), constitui¬ 
do por un vector cuyos elementos son las cabeceras de las listas. 
Para comprobar la existencia (en el archivo Listas) de registros 
en correlación con el i-ésimo registro Base, bastará leer el i-ésimo 




1 demento del vector LINK ENTRY; si este último es 0 no están co- 
m'dados los registros y, en caso contrario, el número constituirá 
| 'I puntero al primer registro de la lista asociada. 

Una lista monodireccional está constituida por pares registro- 
puntero en donde este último indica el par sucesivo en correla- 
'iV>n; en esta ocasión preferimos subdividir dicho acoplamiento ló¬ 
gico en un vector de punteros (fichero LINK POINTERS o LNK.PTR) 
y un fichero aleatorio de registro, LINK FILE o LNK.FL, que contie¬ 
ne las informaciones adicionales del registro Base de pertenen¬ 
cia. Resumimos este en la figura 6. 

No se trata de una gestión muy sencilla, lo admitimos, pero 
volveremos más adelante sobre esta materia. 

Nos falta todavía una serie de parámetros que permiten co¬ 
nocer la estructura del registro correspondiente al fichero LINK, 
es decir, el número de campos y para cada uno de ellos: 

• Nombre del campo. 

• Tipo del campo (1 alfanumérico, 2 numérico). 

• Longitud del campo. 

Este conjunto de parámetros constituirá un fichero de control 
del LINK (cadena) que denominaremos LNK.CTRL. 

Resumiendo, el archivo de listas estará constituido por los fi¬ 
cheros siguientes: 


MASTER FILE 


MGBASEt 




-► 


REG. BASE 3 

-► 

■ 

REG. BASE 4 

-► 

2 

REG. BASE 5 

-► 

0 

L 


1 

1 



REG. CAO. 4.2 
REG. CAO. 4.1 
REG. CAO. 3.1 
REG. CAO. 1.1 
REG. CAD 1.2 


REG. CAO. 1.3 
REG. CAD. 2.1 
REG. CAO. 1 4 
REG. CAO 1.5 
REG. CAD. 3.2 


/|HV Figura 6.—Estructura del archivo controlado de listas. 
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LNK.CTRL 

LNK.ENTRY 

LNK.PTR 

LNK.FL 


fichero secuencial que contiene los paráme¬ 
tros. 

fichero aleatorio que contiene el vector de ac¬ 
ceso a las listas (cabeceras), 
fichero aleatorio que contiene el vector del 
puntero de gestión de lista, 
fichero aleatorio qué contiene los registros 
controlados de lista. 


Hemos definido la estructura del archivo Base y del archivo 
controlado de listas, pero nos falta todavía la definición de algu¬ 
nos parámetros tales como: 


• El número máximo de registros base admitidos. 

• El número de los campos del registro base y para cada 
campo: 

— El nombre del campo. 

— El tipo del campo (1 alfanumérico, 2 numérico). 

— La longitud del campo. 


Además, podría ser interesante "parametrizar" también la po¬ 
sición y organización física de los ficheros, almacenando para cada 
uno: 

• El nombre del fichero. 

• La longitud del registro (0 para secuencial). 

• La ranura (“slot”) de pertenencia. 

• La unidad de disco de pertenencia 

elaborado luego de forma automática las correspondientes cade¬ 
nas de comando DOS. 

Introduciremos dicho conjunto de parámetros en un posterior 
fichero secuencial (SISTEMA CONTROL o SIST.CTRL). Este fichero 
residirá siempre en la ranura 6, unidad 1, y será el único fichero 
fijo, a partir del cual se puede definir cualquier configuración y 
asignación física de la base de datos. 

Para optimizar el programa definiremos para cada comando 
OPEN, READ, WRITE, CLOSE unos vectores 0$(), R$(), W$() y C$(), 
para poder ejecutar el comando en el fichero deseado de forma 
directa. Por ejemplo, PRINT D$; 0$(I), en donde I es el índice que 
sirve para indicar el fichero correspondiente, según la clave mos¬ 
trada a continuación. Es cierto que la "parametrización” hace me¬ 
nos legible el listado, pero se obtiene una notable versatilidad y 
sencillez de gestión. 
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SIST.CTRL 

0 MST.INX 

1 MST.FL 

2 BD.CTRL 

3 LNK.CTRL 

4 LNK.ENTRY 

5 LNK.PTR 

6 LNK.FL 

7 INDEX.1 

8 INDEX.2 

9 INDEX.3 
10 INDEX.4 


Control del sistema de gestión completo (secuen¬ 
cial). 

Indice maestro o diccionario principal (aleatorio). 

Archivo base (aleatorio). 

Control de la base de datos (secuencial). 

Control del archivo controlado de listas. 

Vector de conexión del archivo base a las listas (de 
carácter aleatorio). 

Vector de los punteros para gestión de las listas (de 
carácter aleatorio). 

Archivo controlado de listas (de carácter aleatorio). 

Primer índice auxiliar. 

Segundo Indice auxiliar. 

Tercer índice auxiliar. 

Cuarto índice auxiliar. 


ggg Figura 7.—Ficheros que constituyen la estructura de la base de datos. 
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EL PROGRAMA 



na vez definida la estructura no queda más que 
proceder a un análisis "top-down" de arriba a 
abajo del programa, que subdividiremos en 

dos partes bien distintas: 


• Configuración del sistema, o SETUP. 

• Gestión de BASE DATOS, o BD. 


La primera permitirá configurar el sistema, es decir, definir el 
formato del archivo y, en el caso del MASTER FILE, a cuántos cam¬ 
pos constituyen el registro y cuáles son los nombres, tipos y lon¬ 
gitudes a ellos asociados. Se trata de definir los parámetros con¬ 
tenidos en el SIST.CTRL sin, por supuesto, cargarlos a mano. Lo 
mismo puede decirse con respecto a los ficheros BD.CTRL y 
LNK.CRTL. 


De este modo se puede personalizar la base de datos que, 
aparte de las funciones estándar, debe poder archivar direccio¬ 
nes, catálogos o tablas sin tener que tocar ninguna sentencia del 
programa. 

La segunda parte del programa permitirá, por el contrario, 
operar sobre el archivo preestablecido en las fases de: 


• Introducción de datos. 

• Borrado. 

• Búsqueda y modificación. 

• Listado. 

• Cambio de índice de búsqueda. 
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Las dos partes anteriores constituirán programas bien distin¬ 
tos, pero mutuamente llamables, puesto que condensarlos en un 
solo programa podría ser "crítico” para la memoria de 48K del 
Apple. 

La figura 1 representa cómo se controlará la base de datos. 
Una vez editados los dos avances faltarán los ficheros de control 
y por ello, al iniciarse el programa sin existir el fichero S1ST.CTRL, 
se pasará el control al programa de CONFIGURACION DEL SIS¬ 
TEMA (SETUP), que permitirá configurar el sistema de gestión y, 
posteriormente, proceder a una nueva iniciación satisfactoria de 
la base de datos. 

Las limitaciones de espacio para esta sección no nos permi¬ 
ten desarrollar el programa de configuración del sistema (SETUP) 
y la gestión de la base de datos (BD) y, al tener que elegir, deci¬ 
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Figura I.—Organización del programa de la base de datos. 




dimos dedicarnos al programa de configuración del sistema, de 
modo que podamos encontrarnos en los siguientes capítulos en 
1 ondiciones para cargar el programa de gestión, después de ha¬ 
ber asimilado el flujo y el listado del programa de configuración 
i leí sistema que nos disponemos a explicarles. 

Este modo de proceder está un poco en contradicción con el 
método de exposición de "arriba-abajo"; en efecto, una vez defi¬ 
nida la estructura de los datos, y al tratarse de dos programas bien 
definidos cuyas interacciones se realizan solamente con la estruc- 
lura antes aludida, consideramos que es más agradable para el 
lector concentrarse en un desarrollo del programa de configura¬ 
ción del sistema llegando hasta la codificación para volver luego 
■ i la parte superior en los siguientes capítulos, con plena dedica¬ 
ción a la gestión de la estructura ya existente. 

Antes de continuar, es preciso que el lector tenga conoci¬ 
miento del hardware necesario: basta disponer de un ordenador 
Apple de 48K y, como mínimo, un disco flexible en la ranura 6 de 
la unidad 3. Por supuesto, si se quiere tener unos archivos algo 
voluminosos, con el riesgos de saturar el único disco, sería nece¬ 
sario pasar al nivel de 2 o 3 unidades. 


Definición de la base de datos 

El programa de configuración del sistema (SETUP), siguiendo 
el diagrama de flujo de la figura 2, se inicia en la línea 60000 con 
la llamada a una subrutina (62000) de inicialización de las varia¬ 
bles y con la lectura de dos ficheros del sistema, STRL.CTRL y 
BD.CTRL. En las inicializaciones aparecen dos variables, RF y RS, 
que contienen la cantidad de memoria libre en el programa BD y 
en el programa SETUP, respectivamente; por supuesto, en el caso 
de que se hagan modificaciones en los programas, será necesario 
actualizar dichos valores. 

La primera vez que se inicia el programa no existirán estos 
ficheros y por ello en lugar de proseguir en secuencia y llegar al 
menú (60500) se activa ONERR GOTO 60050 que inicia la crea¬ 
ción de la base de datos. Esto no ocurrirá en todas las demás oca¬ 
siones en que se ejecute el programa SETUP, puesto que se lle¬ 
gará directamente al menú que controla la posibilidad de una nue¬ 
va configuración parcial del sistema o de su ampliación. 

En la figura 3 podemos ver de qué modo se controla esta crea¬ 
ción inicial: una vez que hemos entrado en la rutina de error se 
nos pregunta si el error verificado (cuyo código se encuentra en 
la dirección 222) es el que se esperaba, es decir END OF DATA 
(FIN DE DATOS), que es el mensaje emitido por el sistema ope¬ 
rativo de disco (DOS) cuando se trata de leer un fichero no exis- 
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60060 


1 Figura 


2—Estructura del SETUP (Configuración del sistema.) 


tente. En caso afirmativo, se prosigue desactivando ONERR (por 
cuanto que ya no es necesaria) mediante la instrucción POKE 
216,0. 

Después de haber definido en dónde asignar la base de da¬ 
tos (1.1.1.1) y cuáles son los campos requeridos para cada regis¬ 
tro base (1.1.1.2), se pueden definir la longitud efectiva del regis¬ 
tro R(0) y R( 1) del INDICE y de la base de datos (línea 60095). Po¬ 
demos escribir ahora el fichero S1ST.CTRL (1.1.1.3) y proceder a 
su nueva lectura (1.1.3) para tener a nuestra disposición las cade¬ 
nas de control que crea la rutina de lectura, procediendo a escri¬ 
bir el fichero BD.CTRL (1.1.1.4) y, finalmente, preparar en disco él 
espacio para los ficheros MASTER INDEX (MST.INX) y MASTER 
FILE (MST.FL) (1.1.1.5). 

Después de esta asignación de espacio en disco, para cuya 
operación se puede tardar algunos minutos, se presenta la situa- 
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ción, es &géfr el número máximo de registros suceptibles de con¬ 
trol: si la configuración no satisface, podemos modificarla todavía 
(en efecto, se puede volver a empezar anulando los ficheros maes¬ 
tros y volviendo a la definición de la asignación de la base de da¬ 
tos). Por el contrario, si todo es correcto, es escriben los ficheros 
SIST.CTRL (1.1.1.3) y BD.CTRL (1.1.1.4) definitivos. 

En la figura 4 vemos cómo se produce la definición de la asig¬ 
nación de la base de datos: ante todo leyendo los datos (instruc- 



62500 REN PRIMERA VEZ 
62510 HOME:CN=80:RESTORE 
62520 FOR 1=0 TO 10:READ A$:NEXT 
62530 FOR 1=0 T0 10:READ R(I):NEXT 
62540 FOR 1=0 TO 10:READ SUhNEXT 
62550 FOR 1=0 T0 10:READ DühNEXT 
62555 FOR 1=0 T0 9:READ EühNEXT 

62560 VAT8 9:HTAB 9: INPLiT "BASE DE DATOS EN UNIDAD: ”¡A$:A=VAL!A$) 

62570 IF AOl AND A<)2 T.HEN 62560 

62560 PRINT :HATB 22:INPUT "SEGURO? ";Aí 

62590 IF LEFTt(Aí,I)<>"S* THEN 62560 

62600 FOR 1=0 T02:D(I)=A:NEXT 
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Figura 4—Definiciones de la asignación de la base de datos: 
flujo y listado. 


















63060 VATB 4:HTA8 UsPRINT "NOMBRE";:HTAB 21:PRINT "TIPO (A/N)";:HTAB 25:PRINT ” 
LONGITUD" 

63070 TCP 1=1 TO NC 

63080 VATB I+5:CALL -868:IF 1)10 THEN HTAB 2 
63090 PRINT I;“CAMPO"; 

63100 HTAB 10:IF IBÍillO"" THEN PRINT LBt(I>; 

63110 HTAB 10:INPUT ”¡Aí 
63113 IF At=” AND LB*(I)="* THEN 63080 
63116 IF AJO" 1 ' THEN LB$(I)=At 
63120 VTAB I+5:HTAB 10:PRINT LBt(I) 

63140 IF TP(I> = l THEN INPUT "ALFANUMERICO "¡A* 

63145 IF TP(I) =2 THEN INPUT 11 NUMERICO ";A« 

63150 IF TP(I)=0 THEN INPUT " “;A$ 

63160 VTAB I+5:HTAB 20 

63170 IF At="A" THEN TP(I)=1:CALL -868:PRINT "ALFANUMERICO":GOTO 63200 
63180 IF At="N" THEN TP(¡)=2:CALL -868:PRINT " NUMERICO ":GOTO 63200 
63190 IF AJO" 11 OR TP(I) =0 THEN 63130 
63200 VTAB I+5:HTAB 35:CALL -868 

63210 IF LLIDOO THEN PRINT LEFT*(T*.4-LEN(STR*(LL(I))));LL(I);:HTAB 35 
63220 INPUT "";AÍ 

63230 IF A$=“" AND NOT LL<I) THEN 63200 
63240 IF At<>"’ THEN LL(I)=INT {VAL(LEFT$<A*,3))> 

63250 IF LLIIK1 OR LL(I)>29 THEN 63200 

63260 VTAB I+5:HTAB 35:CALL -868:PRINT LEFT*(T*,4-LEN(STR*<LL(I)>));LL(I) 

63270 NEXT 

63280 LR=NC¡F0R 1=1 TO NC:LR=LR+LL(I):NEXT 
63290 VTAB 21:PRINT "LONGITUD REGISTRO ‘LR" BYTES" 

63300 VTAB 23:HTAB 20:INPUT "MODIFICAR? "¡Al 
63310 IF LEFT*<A$,1!<>"N" THEN 63000 
63320 ST*=" H 

63330 J=LR-1:IFJ>255 THEN 3=255 
63340 FOR 1=1 TO J:ST$=STt+FRt:NEXT 
63350 RETURN 

JBf Figura 5—Definición de los campos: flujo y listado. 


dones DATA que aparecen el final del listado) se asumen los pa¬ 
rámetros (nombre del fichero, longitud de registro, ranura, unidad) 
prefijados (líneas 62520-62550) y a continuación se pregunta en 
qué unidad se quiere ubicar el archivo principal de la base de da¬ 
los y se procede a la sustitución del valor anterior por el actual. 

Más compleja es la definición de los campos en el interior del 
registro (figura 5): la rutina está estructurada de modo que se pue- 
d.i con las mismas instrucciones, definir un campo o modificar el 
v. 1 1 < 11 anterior del mismo, prosiguiendo con su ejecución hasta que 
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APERTURA DEL FICHERO SIST. CTRL 


ESCRITURA DEL NUMERO DE CAMPOS V 
DEL NUMERO MAXIMO DE REGISTROS 


DE CADA CAMPO ESCRIBIRjJOMBRE, 
TIPO Y LONGITUD 


DE CADA FICHERO ESCRIBIR NOMBRE, LONGITUD 
DEL REGISTRO. RANURA Y UNIDAD DE DISCO 



30000 REM ESCRITURA DEL SIST,CTRL (CONTROL DEL SISTEMA). 

30010 PRINT D*;01t"SIST.CTRL,S6,Dl" 

30020 PRINT D*;W1*"SIST.CTRL" 

30030 PRINT NC","EH 

30035 FOR 1=0 T0 9-.PRINT EühNEXT 

30040 FOR 1=1 T0 NC:PRINT LB*(I)","TP(I)","LL(11:NEXT 

30050 RESTORE 

30060 FOR 1=0 T0 10:READ Al:PRINT ft*“,“R(I)”,"S(I)“,“D(I):NEXT 
30070 PRINT Dt;C1t"SIST.CTRL" 

30080 RETURN 

MBSÍ Figura 6.—Escritura del fichero SIST.CTRL: ñujo y listado. 













40000 

40030 


40040 


40060 


40060 

40120 


40130 


40000 REM LECTURA DEL FICHERO SIST.CTRL 
40010 BS<0)='":BÍ(1>=\R" 

40020 PRINT D*;1t"SIST.CTRL,S6.DI“ 

40030 PRINT D$;R1»"SIST.CTRL* 

40040 INPUT NC,EH 

40045 FOR 1=0 TD V:INPUT EIDiNEXT 

40050 FDR 1=1 TQ NC:INPUT LBt(I),TP(I),LL<1):NEXT 

40060 FOR 1=0 TO 10 

40070 L4='":INPUT flt,R(I),S(I),D(I):IF R(I1 THEN L$=",L“+STR$(R(I)) 
40080 D$(I) =01*4-A«+L$+",S"+STRí(S(I))+“,D"+STRíID(I)) 
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40090 RÍ(!!=RI5+A$+8$(R(I)>0) 

Ao100 ÜÍ(I)=N1$+A$+BÍ(R(I)>0) 

40110 Ct(I)=Clí+A$ 

40120 NEXT 

40130 PRINT Dt;C14"SIBT.CTRL“ 

40140 RETURN 

SSSf Figura Z— Lectura del fichero SIST.CTRL: flujo y listado. 


no se obtenga una situación satisfactoria. Es importante destacar 
que esta definición, una vez confirmada, ya no será modificable a 
menos que se destruya todo el archivo; en efecto, en esta parte 
del programa, como se vio con anterioridad, se entra si, y sola¬ 
mente si, no existen los ficheros de sistema, es decir, la primera 
vez que se inicia el programa. 

De cada campo se define: 

• Nombre: con una longitud máxima de 9 caracteres. 

• Tipo: alfunumérico o numérico. 

• Longitud: comprendida entre 1 y 29. 

Para los campos de tipo alfanumérico se comprobará solamen¬ 
te la longitud, mientras que para los de tipo numérico se compro¬ 
bará también si son efectivamente números. Al comienzo de la ru¬ 
tina se pide el número de campos que se quiere constituyan el 
registro base; el límite máximo de este valor lo hemos estableci¬ 
do en 14, pero puede aumentarse a voluntad, con la simple preo¬ 
cupación de que luego, en el programa BD, se controle de forma 
adecuada la paginación de los datos en la pantalla. 

En el cálculo de la longitud del registro, se precisa tener pre¬ 
sente que dentro de cada campo, en el interior del registro, existe 
el carácter de retorno de carro (CR) separador y que, por consi¬ 
guiente, la longitud en bytes viene dada por la suma de las lon¬ 
gitudes de los campos más el número de campos (un retorno de 
carro cada uno). Al final de la rutina se prepara una cadena de ca¬ 
racteres a escribir en el disco para asignar el espacio necesario 
para el archivo. Esta cadena, constituida por caracteres no utiliza- 
bles de inmediato, tiene la misma longitud que el registro o, si 
este último tiene una longitud superior a 255 bytes, tendrá una lon¬ 
gitud de 255 bytes, siendo esta dimensión suficiente para asignar 
todo el espacio necesario. 

En la rutina se tiene una instrucción CALL-868; se trata de la 
llamada a una función del sistema que borra de la pantalla la línea 
actual, desde la posición del cursor hasta el final de la línea. 
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En este punto podemos ver la estructura de los ficheros del 
sistema SIST.CTRL y BD.CTRL, que contienen los datos de descrip¬ 
ción del ambiente en el que operan los dos programas de confi¬ 
guración del sistema y de la base de datos. 

En las figuras 6 y 7 vemos la escritura y lectura del fichero 
SIST.CTRL; en las figuras 8 y 9 podemos observar la escritura y 
lectura del fichero BD.CTRL. En todo el programa se constata 
que la escritura del fichero SIST.CTRL va inmediatamente seguida 
por la rutina de lectura, por cuanto que esta última, además de 
leer los parámetros de diversos ficheros, construye las cadenas 
0$(I), R$(I), W$(I), C$(I), para el acceso a los ficheros; por consi¬ 
guiente, cada vez que se varía uno de los parámetros de un fiche¬ 
ro (por ejemplo, el correspondiente a la ranura), es preciso vol¬ 
ver a ejecutar esta operación para poder tener el acceso corres¬ 
pondiente. 

Prosiguiendo con un estudio más profundo del programa, ve¬ 
mos en el diagrama de flujo de la figura 11 como se asigna el es¬ 
pacio en disco para los ficheros maestros. Inicialmente, se pregun¬ 
ta cuántos registros se quieren que constituyan el archivo base; 
en este punto, el programa comienza a escribir en el disco, al mis¬ 
mo tiempo en INDEX y en MASTER. En el primero se escribe una 
clave ficticia y el número de orden y en el segundo la cadena pre¬ 
parada en la fase de definición de los campos. 

Existen dos posibilidades: que en el disco elegido haya es¬ 
pacio suficiente para contener el archivo o que no. En esta segun¬ 
da hipótesis se activa ONERR GOTO 60360 que está contenida en 
la línea 60160 y partiendo del último registro que se ha tratado de 
escribir y procediendo hacia atrás se verifica cuál es el último par 
"index-master" escrito de forma correcta (ello porque el sistema 
operativo DOS escribe físicamente en el disco no para cada co¬ 
mando WRITE, sino solamente cuando ha llenado un buffer de 256 
bytes; y por consiguiente, a priori no se sabe en qué momento se 
verifica el error del disco lleno). En ambos casos, al llegar a la lí¬ 
nea 60280, en "I" está contenido el número máximo de registros 
base. 

Se calcula ahora el número de claves suceptibles de conte¬ 
nerse en la memoria del programa BD, para que se mantengan en 
ella con el fin de tener un acceso más rápido. Como el número 
máximo de registros utilizables por la base de datos en la confi¬ 
guración elegida, se elige el mínimo entre el número de registros 
que son suceptibles de almacenamiento en disco y el número de 
claves contenida en la memoria. En este punto, como se vió en el 
diagrama de flujo de la figura 3, también es posible hacer modi¬ 
ficaciones volviendo a comenzar desde el principio; por ejemplo, 
variando la longitud de la clave o de algunos campos, para au¬ 
mentar el número de informaciones suceptibles de control. 
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APERTURA DEL FICHERO BD CTRL 


ESCRITURA DEL N.° DE REGISTROS BASE EXISTENTES 
REGISTROS 8ASE ASIGNADOS. INDICADOR 
PRESENCIA. FICHERO LINK. INDICADOR TIPO 
IMPRESORA. INOICADOR N.« COLUMNAS IMPRESORA. 
INDICADOR DISCO LLENO 


42000 


ESCRITURA INDICADORES RELATIVOS A 
LOS CUATRO INDICES AUXILIARES POSIBLES 



«000 REN ESCRITURO DEL FICHERO BD.CTRL (CONTROL BASE DE DATOS). 
42010 PRINT Dt;D$(2) 

42020 PRINT D*;W*(2) 

42030 PRINT NX",“EA",■FL","PT","CN","DF 
42040 FOR 1=1 TO 4 

42050 PRINT IA(I,0)",MA(1,1)*,IA(I,2) 

42060 NEXT 

42070 PRINT Dt;C*(2) 

42080 RETURN 


f Figura 8.—Escritura del fichero BD.CTRL: flujo y listado. 
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LECTURA DEL N. 


DE REGISTROS EXISTENTES V 
ASIGNADOS. INDICADORES DE PRESENCIA FICHERO 
LINK, TIPO IMPRESORA. COLUMNAS IMPRESORA Y 
DISCO LLENO 


LECTURA DE LOS INDICADORES RELATIVOS A 
POSIBLES INDICES AUXILIARES 


35000 REI1 LECTURA FICHERO BD.CTRL 
35010 PRINT Dí;0í<2) 

35020 PRINT D«;Rí<2) 

35030 INPLT IA(I,0),IflfI.1)IA(I,2) 

35040 F0R !=! TO 4 

35060 NEXT 

35070 PRINT M;C$(2) 

35080 RETURN 


JBff Figura 9.—Lectura del fichero BD.CTRL: [lujo y listado. 
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15700 REM ASIGNACION DE FICHEROS 

15710 VTAB 20:INPUT "CORRECTAS RANURA Y UNIDAD? ”;A* 

15720 FI AÍ=“S“ OR Aí= n ” THEN RETURN 

15730 VATB 20-.CALL -958:PRINT "RANURA "SÍPD; 

15740 HATB 6:INPUT "";A$:S(P1)=VAL(AÍ) 

15750 VATB -20:HTAB 21:PRINT -UNIDAD";D(P1); 

15760 HATB 27:INPUT ”;AÍ:DiPl)=VAL(A») ¡PRINT 
15780 HATB 23:INPUT "MODIFICACIONES^ ”¡A$ 

15790 IF A»="S" THEN 15730 
15800 RETURN 



Figura 10— Listado de la subrutina de asignación de ficheros. 













EL MENU PRINCIPAL 



cabamos de definir la estructura inicial de la 
base de datos y, por consiguiente, el programa 
llega al menú principal, como llegará todas las 
veces gue desde BD se llama a este programa 
para reconfigurar parte del sistema. Las varia¬ 
bles usadas son: 


VARIABLE DESCRIPCION 

A Variable numérica auxiliar utilizada a 'nivel 

local. 

A$ Variable auxiliar utilizada mucho para la en¬ 

trada. 

B$ Variable auxiliar utilizada a nivel local. 

B$(I) Vector auxiliar. 

C$(I) Cierre del fichero i-ésimo. 

01$ Cadena que contiene el valor 'cióse'. 

CN Número máximo de columnas de la impresora. 

D$ Variable de cadena con carácter de control 

ctrl-d(CH$(l)). 

D(l) Unidad de pertenencia del fichero i-ésimo. 

DF Indicador de disco lleno (si es 1 indica disco 

lleno). 

EA Indica el número de registros base asignados 

(comprende también los anulados). 
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FL 

FR$ 

I 

IA$ 

IA% 

IA(I,J) 

IX$(I) 

IX%(I) 
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OS(I) 
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P1 

PT 

R 

R$(I) 

R(I) 

RI$ 

FR 

RS 

S(I) 

SIS 

T$ 

TP$(I) 

W$(I) 

WIS 
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Indicador LINK (si 1 indica la existencia de 
lista). 

Variable que contiene CHR$(95), es decir, re¬ 
gistro libre. 

Indice auxiliar. 

Cadena auxiliar para algoritmo de ordenación. 
Variable numérica auxiliar para algoritmo de 
ordenación. 

Parámetros índice i-ésimo (J=O número campo; 
1 longitud clave; 2 validez). 

Clave registro i-ésimo. 

Dirección registro i-ésimo. 

Indice auxiliar. 

Indice. 

Nombre campo i-ésimo (número máximo de 
caracteres=8). 

Longitud campo i-ésimo (máximo 29 caracte¬ 
res). 

Longitud registro. 

Número de campos. 

Número máximo de campos. 

Número de elementos válidos del archivo 
base. 

Apertura fichero i-ésimo. 

Cadena que contiene el valor 'operi. 

Indice de fichero (parámetro para rutina de 
asignación). 

Tipo interface impresora (O-en paralelo, 1-en 
serie). 

Indice auxiliar para ordenación. 

Lectura fichero i-ésimo. 

Parámetro que indica longitud registro fichero 
i-ésimo (O-secuencial). 

Cadena que contiene el valor 'read 1 . 

Memoria libre para claves en el programa BD. 
Memoria libre para claves en el proqrama 
SETUP. a 

Parámetro que indica ranura de pertenencia 
del fichero i-ésimo. 

Cadena de CHR$(95), utilizada para asignación 
de espacios en disco. 

Cadena que contiene 28 espacios en blanco. 
Tipo campo i-ésimo (1-alfanumérico, 2-numérico, 
0-no definido). 

Escritura fichero i-ésimo. 

Cadena que contiene el valor 'write’ 




60500 REM MENU PRINCIPAL PROGRAMA CONFIGURACION SISTEMA 
60505 DIN IXt(EM),I5'.(EM),Pr/.(EM) 

60510 HOME:HTAB IOíPRINT "REC0NFIGURACI0N SISTEMAS” 
60520 VTAB 5 

60530 PRINT ” 1- ACTUALIZACION INDICES ADICIONALES" 
60540 PRINT ¡PRINT ” 2- CREACION ARCHIVOS CONCATENADOS” 
60550 PRINT ¡PRINT “ 3- CONFIGURACION IMPRESORA” 

60560 PRINT ¡PRINT ” 4- RETORNO AL MENU PRINCIPAL" 

60570 VTAB 22:HTAB 20:PRINT "B.B.I." 

60600 VTAB 15:HTAB 10:INPUT "CUAL? ”;A» 

60610 I=VAL'(A$) 

60620 ¡F I<1 CR 1)4 THEN 60510 
60630 0N G0SUB 15000,20000,25000,61000 
60640 GOTO 60510 


jjpf Figura I.—Menú del programa de configuración: flujo y listado. 


A partir de la figura 1 vemos que las actividades posibles en 
este punto son: 

• La gestión de nuevos índices de acceso (1.1.2.1) además 
del principal, siempre presente y actualizado. 

• La creación de los ficheros concatenados (1.1.2.2). 

• La definición de la impresora conectada (1.1.2.3). 

• Salida de este programa con la iniciación del programa BD. 

Comenzamos a partir de la gestión de los índices auxiliares 
(figura 2): si todavía no se grabaron los registros, no será posible 
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15000 REM GESTION INDICES 

15005 IF NOT NX THEN RETURN 

15010 HOME:HTAB 15:PR1NI "INDICES EXISTENTES"¡PRINT 

15020 FDOR 1=1 TO 4 

15030 PRINT I" "LB$(IA(1,0)jiHATB I5:PRINT “S"S(I+6)" D"D(1+6>::IF NOT IA(I,2) 
THEN HTAB 22:PRINT "NO”; 

15040 PRINT " ACTUALIZADO“:NEXT 
15060 VTAB 8:PRINT " 1-ELININACION" 

15070 PRINT " 2-CREACION" 

15000 PRINT " 3-FIN" 

15100 PRINT : INPUT "CUAL? A*: AZ = VALIA!) 

15110 IF A!<1 OR AD2 THEN 15000 

15120 ON A'X BOSUB 15200,15300 

15130 IF AZ<>3 THEN 15000 

15140 GOSUB 30000:GOSUB 40000:GOSUB 42000 

13130 RETURN 


Figura 2.—Gestión de índices auxiliares: flujo y listado. 


crear ningún índice y por ello la fase terminará de inmediato. De 
no ser así se presenta la situación actual, visualizando, para cada 
uno de los cuatro índices posibles, el nombre del campo al que 
se hace referencia, la ranura y la unidad en la que está almacena¬ 
do y si está actualizado o no. 

Las elecciones posibles son tres: eliminar un índice que ya 
no es necesario (1.1.2.1.1.), creación de uno nuevo (1.1.2.1.2.) o ter¬ 
minar las operaciones registrando la nueva operación en los fi¬ 
cheros de sistema. 

Para borrar un índice (figura 3) basta con ejecutar un coman¬ 
do DELETE Cnombre fichero> y actualizar el indicador lA(i, j) co- 



15200 REM ELIMINACION INDICE 

15210 PRINT :INPUT "CUAL ELIMINAR? ";A$:A=VAL(A!) 

15220 IF A<1 OR A>4 THEN 15200 
15230 IF NOT IA(A,0) THEN RETURN 

15250 PRINT DÍ'DELETE ";HI4(0$(A+6),6,7);¡RIGHT!(0!(A+6),6) 
15260 IA(A,0)=0:IA(A,2)=0 
15270 RETURN 


Figura 3.—Eliminación de un índice: flujo y listado. 
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15300 REK CREACION INDICE 

15310 FOR P=1 TO 4:IF ¡A(P,0) THEN NEXT 
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15320 IF P>4 THEN RETURN 

15330 VTAB 14:INPUT "QUE CAMPO? ";A$:A=VAL(At):CALL -958 

15340 IF <2 OR A) NC OR TP(A)=2 THEN 15330 

15350 VTAB 14:HTAB 18:PRINT LBtlA);HTAB 29:INP'JT "LO CONFIRMA? ";AÍ 

15355 IF LEFTtlAt, 1)0 “S” THEN 15330 

15360 IA(P,0)=A:VT(0)=A 

15365 GOSUB 16000:PRINT :IF NOT OK THEN 15330 

15370 IA(P,1)=INT((FRE(0)-2000)/Eh):IF IA(P,1)>LL(A) THEN IA(P,1)=LL(A) 

15375 R(P+6)=IA(P,1)+6:P1=P+6:PRINT P" :60SUB 15700:60SUB 30000:60SUB 40000 
15380 IA(P,2)=1 

15385 VTAB 20:CALl -958:HTAB 13:FLASH:PRINT "LECTURA CAMPOS":NORMAL 
15390 PRINT Dí;0*(0):PRINT D$;0$(i) 

15400 FOR J=1 TO NX 
15410 PRINT D*;Ri(0);J 
15420 INPUT A$: INPUT 1X7.(J) 

15470 PRINT Di;Ri(l);IX2(J> 

15480 FOR K=1 TO A 
15490 INP'JT A» 

15500 NEXT 

15505 IXi(J)=LEFTi(Ai,IAlPj1)):NEXT 

15507 VTAB 20:CALL -95B:HTAB 5:FLASH:PRINT "ATENCION 1 ORDENACION EN CUR50":NDRHA 
L 

15510 GOSUB 500 

15515 VTAB 20:CALL -958:HTAB 12:FLASH:PRINT "ESCRITURA INDICE"¡NORMAL 
15518 ONERR GOTO 17000 
15520 PRINT Di;Oi(P+6) 

15525 PRINT Di;Ni(P+6);0:PRINT NX 

15530 FOR J=1 TO NX 

15540 PRINT Di;Wt(P+6)¡J 

15550 PRINT IXÍ1PIK6))¡PRINT IX7(PI7!J1) 

¡5560 NEXT 
15570 PRINT Di;Cli 
15575 PONE 216,0 
15580 GOSUB 42000 
15590 RETURN 


; Figura 4.—Creación de un índice: flujo y listado. 


rrespondiente. En la línea 15250 se ve que el nombre del fichero 
se toma a partir de la cadena 0$ correspondiente al índice en cues¬ 
tión y de la misma cadena se toman las indicaciones de la ranura 
y de la unidad de pertenencia. 

Para crear un nuevo índice (figura 4) es necesario, ante todo, 
que no estén los cuatro ocupados. 

Después de haber solicitado el número del campo que se 
quiere utilizar se calcula la longitud máxima de la clave conteni- 
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ble en la memoria del programa SETUP (línea 15370) y, puesto 
que las claves deben estar contenidas en memoria para su orde¬ 
nación, será preciso cerciorarse de que el espacio es suficiente 
para todas ellas. En la línea 15375 se valora la valoración del re¬ 
gistro índice como dimensión de la clave +6 bytes que contienen 
la dirección del registro base correspondiente a cada clave y los 
separadores(CR) entre clave y dirección. 

Inmediatamente después se ejecuta una subrutina (que co¬ 
mienza en la línea 15700) que permite variar la ranura ("slot") y la 
unidad en la que se almacena el índice. Corresponde al operador 
tener cuidado en no introducir los índic'es en un disco que no ten¬ 
ga el espacio libre necesario para contenerlos; de no ser así, du¬ 
rante la escritura del índice se generará el mensaje de error "DISK 
FULL" (en cualquier caso, siempre podrá volverlo a crear en otro 
disco). Al escribir y volver a leer el fichero SIST.CTRL se dispon¬ 
drá de las cadenas de control actualizadas para el acceso a los 
datos. / 

Para crear el indice solicitado será necesario, en este punto, 
leer a partir del MASTER INDEX cuáles son los registros del ar¬ 
chivo válidos, almacenando las direcciones correspondientes en 
el vector IX%(líneas 15390 y 15440; se lee también la clave prin¬ 
cipal en la variable A$ pero, al no ser necesaria, no se almacena). 
Al saber ahora cuáles son los registros válidos del MASTER FILE 
podemos leerlos uno a uno y almacenar en el vector IX$ el cam¬ 
po correspondiente al índice objeto de creación, desechando los 
otros campos. Al final de esta operación, tendremos en los vecto¬ 
res IX$ e IX% todas las informaciones necesarias para tener acce¬ 
so a los registros según otro índice y no nos queda más que or¬ 
denarlos mediante la rutina heapsort para poder efectuar la bús¬ 
queda binaria, almacenarlos en el disco elegido y registrar en el 
fichero BD.CTRL la existencia de un nuevo índice actualizado. 

El diagrama de flujo de la figura 5 representa la fase de crea¬ 
ción de los ficheros LINK, que comienza con la definición de qué 
ranura (slot) y unidad de disco se quiere utilizar para estos datos; 
luego se crean las cadenas de control con el procedimiento há¬ 
bil nal de escritura y relectura del fichero SIST.CTRL. 

Para definir los campos que se quieren que constituyan el re¬ 
gistro concatenado se utiliza el mismo procedimiento empleado 
paia el registro base, variando simplemente algunos parámetros 
y utilizando las mismas variables (por lo que después de ello será 
necesario volver a leer el fichero SIST.CTRL para restablecer la si- 
i unción anterior). La definición de los campos crea parámetroá si- 
mi ln íes a los del registro principal que se escriben en el fichero 
LNK.CTRL. La inicialización de los otros ficheros necesarios para 
ln gestión de los ficheros concatenados consiste simplemente en 
I >i >nei a 0 todo el fichero LINK ENTRY, teniendo en cuenta que no 
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20000 REM CREACION NUEVO FICHERO 

20010 HOME:VIAB 9:PRINT "RANÜRA H S(3)" UNIDAD"D(3):Pi=3:GOSUB 15700:FQR 1=4 TO 6: 
S(I)=S(3):DÍ1)=D(3)sNEXT 
20015 60SUB 30000:GOSUB 40000 







20020 NC=0:NK=14 

20030 FOR 1=1 TO NM 

20040 LBt (I)=■': TP (I) =0: LL (I) =0 

20050 NEXT 

20060 GOSUB 63000 

20070 REM ESCRITURA FICHERO LINK.CTRL(CONTROL CADENA) 

20075 VATB 23:CALL -958:FLASH:HIAB 13:PRINT "PREPARACJON":NORMAL 
20080 PRINT D*;QJ(3) 

20090 PRINT DÍ;Wt(3¡ 

20100 PRINT NC 

20110 FOR 1=1 TO NC 

20120 PRINT LB$(I)","TP(I)”,“LLID 

20130 NEXT 

20140 PRINT D*;C*(3) 

20150 REM INICIALZACION FICHERO ENTRV 
20160 PRINT D*¡0$(4) 

20170 FOR 1=0 TO EM 
20180 PRINT D*;N*(4);I 
20190 PRINT O 
20200 NEXT 
20210 PRINT D*;CÍ(4) 

20220 PRINT D*;0t(5) 

20230 PRINT D*;Wí(5);0 
20240 PRINT 1 
20250 PRINT Dí;Ct(5>;0 
20260 FL=1:DF=0 
20270 60SU6 42000 
20280 GOSUB 40000 
20285 R(6)=LR:GOSUB 30000 
20290 RETURN 


MBIf Figura 5— Creación del fichero LINK: flujo y listado. 


existen listas (en realidad, solamente las hemos definido) y que 
debemos escribir en el fichero LINK. PTR cuál es el primer regis¬ 
tro libre, es decir, el número 1. La conclusión de la fase es, como 
de costumbre, la escritura de los ficheros del sistema para actua¬ 
lizar la situación. 

La última fase (figura 6) se refiere a la definición del tipo de 
impresora que se quiere utilizar. La diferencia está en el tipo.de 
interface (que debe estar en el Slot número 1). Existen dos posi¬ 
bilidades: en paralelo o en serie. El otro parámetro es el número 
máximo de caracteres que la impresora controla por cada línea 
(normalmente 80 ó 132). Estos parámetros también se registran en 
el fichero BD.CTRL. 



25000 REM PARAMETROS IMPRESION 

25010 HOME:HATB 12:PRINT "IMPRESORA TIPO:" 

25020 VATB 5:HATB 5:IF N0T PT THEN PRINT "EN PARALELO";:G0T0 25030 
25025 PRINT "EN SERIE"; 

25030 HTAB 20:PRINT "DE "CN " COLUMNAS" 

25040 VTABI15): HTAB(20): INPUT "MODIFICACIONES’’ Ai: IF LEFT*(A*,1) O "S” 
THEN 25100 

25050 VTAB 13:INPUT "IMPRESORA (S/P)? ":PT=0 
25060 IF At="S" THEN PT=1 

25070 INPUT "MUMER0 COLUMNAS? ";A*:CN=INT (VALIA*)) 

25080 GOTO 25000 
25100 GOSUB 42000 
25110 HOME 


||p Figura 6—Configuración de la impresora: flujo y listado. 


Hemos visto cómo crear la estructura de la base de datos, los 
ficheros concatenados y los índices auxiliares, cuáles son los_pa¬ 
rámetros necesarios para el control de todo el conjunto y cómo 
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configurar el sistema según las propias exigencias y las posibili¬ 
dades de la máquina (por ejemplo, el número de unidades de que 
se dispone). 

En el siguiente capítulo proseguiremos con el desarrollo, ana¬ 
lizando el programa propiamente dicho de gestión de datos. 




GESTION DE DATOS 



legamos por fin al "corazón" de la gestión de da¬ 
tos, cuya estructura se describió en los capítu¬ 
los anteriores, esperamos que con buenos resul¬ 
tados. Los afortunados lectores que hayan teni¬ 
do la posibilidad de teclear la fase de configu¬ 
ración del sistema (SETUP) no estarán precisa¬ 
mente muy entusiasmados puesto que, al tratar¬ 
se de una fase preparatoria, no proporciona re¬ 
sultados tangibles inmediatos. Pedimos ahora un 
poco de paciencia y les aseguramos que, al finalizar, estarán en 
condiciones de realizar la gestión de la base de datos, en esta oca¬ 
sión con resultados prácticos. Quien piense que así habrá puesto 
término al desarrollo del proyecto está en un error puesto que, 
como se indicó con anterioridad, nos proponemos concluir con 
una fase de listado, es decir, de visualización e impresión, muy so¬ 
fisticada que ponga de manifiesto las ventajas de poder disponer 
de una base de datos bien estructurada. 


La conclusión comprenderá también algún ejemplo que pon¬ 
ga a prueba su imaginación en diversos campos de aplicación 
que sean de su interés. Concluiremos, pues, la odisea de la base 
de datos en el siguiente capítulo, pero no terminará para el lector, 
que tratará de modificar, optimizar y “personalizar" su gestión. 

Antes de comenzar, les recomendamos añadir inmediatamen¬ 
te la línea 62150 del programa SETUP 


62150 RF= 16000 

puesto que con la introducción de la fase de listado quedará me¬ 
nos espacio de memoria para las variables de cadena y dicha mo- 
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dificación sirve de precaución contra posibles desbordamientos 
futuros de la capacidad de memoria. 

Por si no está clara la estructura de datos controlados por lis¬ 
tas trataremos con más detalle los conceptos correspondientes. 


Cómo realizamos la gestión de los registros concatenados 

A primera vista, la metodología que hemos elegido para con¬ 
trolar los registros concatenados puede parecer tediosa e incom¬ 
prensible; no obstante, aunque este sistema hay que reconocer 
que alarga algo los tiempos de acceso presenta la gran ventaja 
de que solamente existe una conexión lógica, y no física, entre los 
registros báse y los registros en cadena. Ello permite tener un ar¬ 
chivo y "N" discos separados de registros concatenados que tie¬ 
nen también un formato diferente y poder introducir y utilizar, uno 
a uno, estos discos. 

Veamos ahora con detalle cómo se manipulan las listas. Cuan¬ 
do el programa SETUP crea los ficheros LINK, genera en el disco 
elegido, y en el fichero LNK.CTRL, una descripción de los campos 
del registro LINK. Además crea tres ficheros: LNK.ENTRY, LNK.PTR 
y LNK.FILE. 

LNK.ENTRY contiene tantos registros como registros base má¬ 
ximos hay en el archivo. En este fichero, cada registro es el pun¬ 
tero a la cabecera de la lista conectada al registro base corres¬ 
pondiente. El registro 1 de LNK.ENTRY contendrá, pues, el punte¬ 
ro a la cabecera de la lista unida al registro base número 1 y así 
sucesivamente. En el momento de la creación, este fichero se pone 
a cero en su totalidad, lo que significa que no hay cadenas unidas. 

LNK.FILE contiene todos los registros concatenados. No ne¬ 
cesita inicialización por cuanto que son precisamente los dos fi¬ 
cheros los encargados de establecer si un registro está lleno o 
vacío. 

LNK.PTR contiene todos los punteros necesarios para la ex¬ 
ploración y creación de las listas; esta es la razón por la que se 
hizo la elección de tener los punteros de las cadenas en un fiche¬ 
ro separado de los datos propiamente dichos. 

Veamos con un ejemplo cómo funcionan estos tres ficheros: 
teniendo el registro base número 3 conectado a una cadena de 
tres registros. Entonces, según puede verse en la figura 1, en el 
registro número 3 de LNK.ENTRY estará el primer registro en ca¬ 
dena en el fichero LNK.FILE (por ejemplo el 5) y en el registro nú¬ 
mero 5 de LNK.PTR estará el número del siguiente registro en ca¬ 
dena (por ejemplo, el 10); en el registro número 10 de LNK.FILE 
están los datos correspondientes, en el registro número 10 de 
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f Figur a I.—Ejemplo del funcionamiento de los ficheros LINK. 


LNK.PTR está el puntero del siguiente, y así sucesivamente hasta 
encontrar un cero en LNK.PTR, lo que indicará el final de la cadena. 

Una atención especial merecen los registros de los ficheros 
LNK.ENTRY y LNK.PTR. Desde el momento en que se presignaron 
los ficheros con la definición previa de la extensión (con el fin de 
permitir almacenar en el mismo disco también otros datos, por 
ejemplo, los índices auxiliares) es necesario saber cuál será el si¬ 
guiente registro libre y cuándo se hará la inserción de un nuevo 
registro, lo mismo que es necesario controlar los registros borra¬ 
dos, es decir, eliminados de una lista. Entonces, en el registro 0 
del fichero LNK.PTR se mantiene el número de orden del primer 
registro libre en LNK.FILE, en realidad, en la inicialización se es¬ 
cribe 1, en este fichero, lo que representa el primer registro libre. 

En lo que respecta a los registros borrados de listas preexis¬ 
tentes para una reutilización sucesiva se conectan en una lista de 
elementos libres y en el registro 0 del fichero LNK.ENTRY se es¬ 
cribe la cabecera de esta lista. Cuando se tenga que hacer una 
inserción, si existe una lista libre, se extrae un registro de ella y 
se reutiliza, actualizando la cabecera de la cola. Si no existiera, en¬ 
tonces se ve cuál es el siguiente registro libre, actualizando luego 
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A Variable numérica auxiliar 

AS Variable de cadena auxiliar 

A% Variable entera auxiliar 

B$ Variable de cadena auxiliar 

B$<“) Vector de cadena utilizado en la lectura del fichero SIS.CTRL 
C Variable numérica empleada en el borrado 

CSC) Vector que contiene las cadenas de control 'CLOSE' de los ficheros 
C1S Cadena CLOSE' 

CA Parámetro para rutina de búsqueda, que indica llamada de borrado 

CIS Valor ASCII correspondiente a control -I 

CL Columnas de formato de lista 

CM Parámetro para la rutina de visualización campos 

CN Longitud máxima de la linea de impresión 

CRS Valor ASCII correspondiente a 'RETURN' 

DS Valor ASCII correspondiente a control-b 
DF Indicador de disco lleno 

DL Puntero a la cabecera de lo lista libre 
ES Contiene la cadena RETURN para' 

EA Número de elementos de BD asignados 

ECS Contiene el valor ASCII esc' 

EL Puntero al último registro a listar 

EM Número máximo de registro base 

EYS(') Vector de cadena de apoyo para introducción y borrado 

EY%(‘) Vector de enteros do apoyo para introducción y borrado 

F Indicador do encontrado, o no, al término de 1a subrutina de búsqueda 

FD Indicador de borrado de cadena 

Fl Indicador de Indice de acceso activo 

FL Indicador de registro modificado 

FRS Carácter indicador de clave libre 

I Variable de utilidad 

!%(■) Matriz Indices do validez paro la fase de listado 

IA(") Matriz que contiene los parámetros de los Indices auxiliares 
IL Siguiente registro libre en el fichero LINK 
IV Número de elementos válidos en el Indice auxiliar 
IXS(’) Vector de las claves principales 

IX%C) Vector de los punteros correspondientes a las claves principales 
J Variable de utilidad 

K Contador 

KOS Clave principal cuando se utilizan los Indicos auxiliaros 
KMS Clave do búsqueda 

L Puntero para búsqueda binaria 

LS Utilizado on la creación de las cadenas de control DOS 
L%(’,') Matriz longitudinal de campos en listado BD y LINK 
LB$(Y) Matriz nombre de los campo BD y LINK 
LK Longitud clave para búsqueda binaria 
LL(Y) Matriz longitudinal de los campos BD y LINK 
LP Número de lineas del módulo de impresión 

MS Cadena 'modificaciones?' 

MAS(') Matriz de las claves máximas de selección para listado BD y LINK 
Ml$( Y) Matriz de las claves mínimas de selección para listado BD y LINK 
N Puntero o número registros base actual 
NC(') Número campos BD y LINK 

NM Número máximo de campos 

NP Indicador nueva página 

NU Número último registro válido del Indice principal después de la inserción o fusión 

NX Número de registros base existentes 

OS(') Vector de cadenas de control DOS ’OPEN’ de los ficheros 

0%( Y) Matriz de los campos en totalización horizontal, utilizada en el listado 

OIS Cadenas'OPEN' 

P Parámetro de salida de la búsqueda binaria, que apunta al registro encontrado 

PL Indicador de presencia LINK 

PT Tipo de impresora (Q-en paralelo, 1 -en serie) 

RSC) Vector de las cadenas de control READ" de los ficheros 

R(') Vector de longitudes de registros 

R1S Cadena 'READ' 

RA En exploración do cadena es el puntero al registro actual 
RO En exploración cadena es el puntero al registro anterior 
RBS(Y) 'Matriz de cadena de apoyo' 

TV$( Y) Matriz que contiene el registro base o LINK en gestión 
S Indicador de impresión activa 

S(’) Vector indicador de las ranuras («Slot») de pertenencia de los ficheros 

SE Indicador del resultado de la prueba de selección 

SL Puntero al primer elemento de listado 

Sr/(') Vector indicador de la presencia de selección para BD y LINK 

T(') Tipo lista horizontal o vertical para BD y LINK 

T1S Cadena utilizada para visualizar la longitud de los campos 


rp(Y) Matriz tipo de campo para BD y LINK 

T( Y) Matriz de las totalizaciones verticales 

V%(Y) Matriz de los campos en totalización vertical 

WS( ’) Vector que contiene las cadenas de control 'WRITE' de los ficheros 

W1S Cadena WRITE' 

X Indica el registro concatenado a escribir en el disco 


1 Figura 2 — Lista completa de las variables de la subrutina de listado. 


el indicador correspondiente. En el programa estos dos punteros 
son: DL (cabecera cola libre) e 1L (siguiente registro libre). 

Las inserciones se realizarán siempre en la cabecera de la lis¬ 
ta, quedando una cola tipo "LIFO" ("último en llegar primero en sa¬ 
lir"), para que la operación sea más rápida, 


Análisis de los ñujos 

Antes de analizar los flujos, hemos de establecer una premisa 
y es la de que, como se puede ver, lamentablemente no están es¬ 
tructurados. Ello presenta la ventaja de la velocidad de ejecución 
y de la sencillez del programa. 

Comenzamos ahora (figura 3) a observar la estructura supe¬ 
rior de la base de datos, Después de la ejecución de una rutina 
que inicializa las variables se lee el fichero SIST.CTRL y según la 
situación se tendrán dos formas diferentes de proseguir el pro- 

CGSO 

En la primera vez que se ejecuta el programa el fichero no 
existe y, por consiguiente, se activa ONERR GOTO que inicia el 
programa SETUP visto en el capítulo anterior, con el fin de confi¬ 
gurar el sistema. . 

A continuación, será posible leer el fichero y continuar la eje¬ 
cución del programa BD. Los datos contenidos en el fichero son. 

• NC(0): número de campos contenidos en el registro base. 

• EM: número máximo de registros archivo principal. 

• LB$(I,0), TP(I,0), LL(I,0): para cada campo, su nombre, tipo y 

longitud. , , 

• A$,R(I),S(I),D(I): para cada fichero, su nombre, longitud de 
registro, “slot” y unidad de disco. 

La subrutina de lectura crea también, con los datos extraídos 
del fichero, las cadenas 0$, R$, W$ y C$, que contienen los co¬ 
mandos OPEN, READ, WRITE y CLOSE, respectivamente, de los fi¬ 
cheros que componen el sistema. 
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1 PRÍNT "MAXFILES 3" 

10 GOTO 60000 

100 rem tmitimiimmmimm 

101 REM *** A P P L E I I tt 

102 REM U » 

104 REM *« BASE DE DATOS PERSONAL tt 

105 REM tttttttttttttttttttttttttttt 

700 REM LECTURA CAMPOS DE BASE DE DATOS 
710 PRINT R$(XFI;P:INPUT IXJ:INPUT IXZ 
720 PRINT R*(1>5ÍXX:J=0 


800 REM LECTURA DE CAMPOS 

810 FOR 1=1 TO N(J):INPUT ROÍ(1,3):NEXT 

820 PRINT D* 

830 RETURN 

900 REM NO ENCONTRADO 
910 IF F THEN RETURN 
920 VTAB 3:HTAB 15:PRINT 'NO HAY” 

930 VTAB 8:HTAB 22:G0SUB 58000 
940 POP:RETURN 

10000 REM LECTURA DEL FICHERO LINK CTRL (CONTROL CADENA! 

10010 PRINT O*(3) 

10020 PRINT R»(3)¡INPUT NC(1) 

10030 FOR 1=1 TO NC(1) 

10040 INPUT LB*(I,1),TP(I,1) I LL(I,1) 

10050 NEXT 
10060 PRINT C*<3) 

10070 FOR 1=4 TO 6:PRINT 0»(I):NEXT 
10080 PRINT R$(4);0:INPUT DL 
10090 PRINT Ri(5);0:INPUT IL 
10100 PRINT R$(5I¡INPUT IL 
10110 PRINT D« 

10120 RETURN 

38000 REM DISCO LLENO 
38010 IL=IL-1 
38020 PRINT 0*(5) 

38030 PRINT HK5) ¡OiPRINT IL 
38040 PRINT Cí<5) 

38100 HOME:HTAB 15:PRINT 'DISCO LLEN0":PRINT :GOSUB 58000 
38140 DF=1 :GOSUB 2000 
38150 POKE 216,0 

38160 RUN 1 

40000 REM LISTADO 

58000 REM ESPERA TECLADO 
58010 INPUT "PULSE RETURN ";A$ 

58020 RETURN 
59000 REM OVERFLON BD 

59010 HOME:PRINT "NO HAY LUGAR PARA OTROS REGISTROS" 

59020 60SUB 5B000 
59030 RETURN 

60000 REM PRUEBA PRIMERA VEZ (DEFINICIONES DE LA ASIGNACION DE LA BASE DE DATOS) 

60010 GOSUB 62000 

60020 ONERR GOTO 60400 

60030 GOSUB 1000 

60040 GOSUB 1500 

60050 POKE 216,0 

60070 GOSUB 10500 
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60100 REM MENU PRINCIPAL 
60105 TEXT 

60110 HOME:HTflB II:PRINT "BASE BE DATOS PERSONAL" 

60120 VTAB 3:PRINT 'REGISTROS PRESENTES EN ARCHIVO”;NX 
60130 PRINT “MAXIMOS REGISTROS POSIBLES “¡EM 
60140 VTAB 6:HTAB !ü:PRINT "FASES DE ACTIVIDAD: 11 
60150 VTAB 8:PRINT ■ 1- INSERCION' 

60160 PRINT ■ 2- ELIMINACION” 

60170 PRINT ” 3- BUSQUEDA 770 MODIFICACION' 

60180 PRINT 11 4- LISTADO" 

60190 PRINT " 5- ETIQUETA" 

60200 PRINT " 6- CAMBIO DE INDICE* 

60210 PRINT ' 7-';:IF FL THEN PRINT "DES" 

60215 PRINT ■ HABILITACION CADENAS" 

60220 PRINT ' 8- RECONFIGURACIQN DEL SISTEMA" 

60230 PRINT ' 9- VERIFICACION ARCHIVO” 

60290 PRINT "10- FIN” 

60295 VTAB 23:HTAB 10:PRINT ”D S> V PRODUCTION" 

60300 VTAB 19:HTAB 10:PRINT "CUAL? ";A1:I=VAL(AÍ) 

60320 IF <I>1 AND I<6) AND NOT NX THEN 60100 

60330 ON I GOSUB 20000,25000,30000,40000,50000,51000,52000,60400,60450,60500 
60340 SL(0)=0:SL(1)=0:GOTO 60100 ’ 

60400 REM LANZAMIENTO PROGRAMA DE CONFIGURACION DEL SISTEMA 
60410 PRINT Dt'EJECUCION DE PROGRAMA DE CONFIGURACION DEL SISTEMA" 

60450 PRINT D»"EJECUCION DEL PROGRAMA DE CHEQUEO" 

60500 REM FINAL DEL PROGRAMA" 

60510 PRINT CU 

60520 PRINT D*"LOCK LOGO,DI" 

60530 PRINT Dí“NAXFILES 3" 

60540 HOME:PRINT “i ADIOS !" 

60550 END 


62000 REM INICIALIZACION VARIABLES 

62010 I=0:T1$=”-":F0R J=I TO 4:TU=T1*+T1$:NEXT 

62020 Dl=CHRI(4):FRí=CHR$(95) 

62030 NM=15 


62040 DIM LBíINM,l),TP(NM,1),LL(NM,1),RB$(NN,1),RV$(NM,IJ,EY$(25),EYX(25) 
62050 01$=D$+*0PEN":R1t=D$+"READ":Ml#=Dí+“WRITE":C1$=Dí+"CLOSE" 

62060 DIM MIS(NM,1),MA$(NM,1) 


62070 FOR 1=1 TO NM:FOR J=0 TO l:MAí(I,J)=FR$:LB$(NM,J)="T0TAL":NEXT J 1 
62080 DIM IXINM, 1),LX(NM, 1),Vi!(NM, 1),07.(NM, 11 ,TT(NM,2),T(2),SL(1) 

62090 CR1=CHR$(13):EC$=CHR$(27) :CU= (9) 


62100 M$="MODIFICACIONES? " 
62200 RETURN 


1000 REM LECTURA DEL FICHERO SIST.CTRL 
1010 BÍ(0)=”“;Bi(l)=*,R" 

1020 PRINT 01$”SIST.CTRL,S6,D1” 

1030 PRINT R1t“SIST.CTRL’: INPUT NC(0),EM 


1040 FOR 1=0 TO 9:INPUT E(I):NEXT :LT=E(0) 

1050 FOR 1=1 TO NC(0):INPUT LBí11,0),TP(I,0),LL(1,0):NEXT 
1060 FOR 1=0 TO 10 

1070 L=“:INPUT AJ,R(I!,S(I),D(I):IF R(I) THEN Lí= -,L“=STR*(R<I)) 
1080 OKI)=OU+A$+LÍ+“,S"+STRt(S(I))+’,D'+STRÍ(D(I)) 

1090 R$(I)=RU+A1+B$+(R(I>)0) 

1100 W$(I)=M$+A$+B$(R(I))0) 

1110 CÍ(I)=C1Í+A$ 

1120 NEXT 

1130 PRINT CirSIST.CRL” 

1140 RETURN 

1500 REM LECTURA DEL FICHERO BD.CTRL 
1510 PRINT Q$(2) 

1520 PRINT RÍ(2):NX,EA,PL,PT,CN,DF 

1530 FOR 1=1 TO 4:INPUT IA(1,0),IA(1,1),IA(1,2):NEXT 

1570 PRINT Cí(2) 

1580 RETURN 

2000 REM ESCRITURA DEL FICHERO BD.CTRL 
2010 PRINT 0Í(2) 

2020 PRINT Wí(2)¡PRINT NX“,“EA”,"PL”,"PT“,"CN“,“DF 
2040 FOR 1=1 TD 4:PRINT IA(I,0)”,"IA(I,1)',"IA(1,2)¡NEXT 
2070 PRINT Cí (2) 

2080 RETURN 

10500 REM LECTURA INDICES 
10550 PRINT 0Í<0) 

10560 PRINT Oíd) 

10570 RETURN 



Figura 3— Menú del programa de Base de datos. 


El programa prosigue con la lectura del fichero BD.CTRL, que 
contiene los datos actualizados sobre el estado del sistema y exac¬ 
tamente: 

• NX: número de registros base existentes en el archivo. 

• EA: número de registros base asignados (NX-número de re¬ 
gistros utilizados ya pero borrados a continuación). 

• PL: indicador de presencia de ficheros concatenados. 

• PT: indicador del tipo de impresora. 

• CN: número máximo de columna de impresión. 

• DF: indicador de si el disco de los ficheros concatenados 
está lleno. 


76 


77 




Y además, para cada uno de los cuatro índices auxiliares po¬ 
sibles: número de campo interesado, longitud en el índice 
(que puede ser menor que la longitud efectiva del campo) 
y validez, o no, del índice. 

Conociendo el estado del sistema es posible leer ahora a par¬ 
tir del disco el índice principal, con el fin de tener en la memoria 
las claves de acceso, en el vector IX$, y las direcciones corres¬ 
pondientes, en el vector IX%. 

Se añade, pues, al menú principal con lo que se permitirá la 
elección de las diversas actividades, a saber: 

• INSERCION. 

• BORRADO. 

• BUSQUEDA Y MODIFICACION. 

• LISTADO. 

• ETIQUETAS (véase apéndice), 

• CAMBIO DE INDICE. 

• HABILITACION CADENAS. 

• RECONFIGURACION DEL SISTEMA. 

• VERIFICACION DE ARCHIVOS (véase apéndice). 

• FINAL. 


Inserción 


Esta fase permite la inserción de los registros en el archivo 
base, comprobando la disponibilidad y efectuando la operación 
de manera rápida y segura. Si se quieren obtener mejores tiem¬ 
pos de búsqueda, los datos deberían estar estructurados de for¬ 
ma adecuada, lo cual está en contradición con el deseo de con¬ 
trolar la inserción de manera sencilla y rápida. Deberemos encon¬ 
trar, pues, soluciones de compromiso. 

La inserción de datos en la estructura quiere decir añadir un 
elemento o sustituir un elemento eliminado del archivo base 
(MST.FL) y efectuar la inserción ordenada en el fichero índice o 
MST.INX. La primera parte es muy sencilla, puesto que basta sa¬ 
ber cuál es la posición libre. 

La segunda podría resultar más difícil, puesto que, al tener 
que efectuar una ordenación o una inserción ordenada, nos vere¬ 
mos obligados, en el caso más desfavorable, a volver a escribir 
todo el fichero de las claves principales, operación que lleva un 
cierto tiempo que, no obstante, sería aproximadamente igual para 
una o varias inserciones. Por consiguiente, se tiene la exigencia 
de crear un vector disponible para el almacenamiento simultáneo 
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de las claves principales correspondientes a los nuevos elemen¬ 
tos, que luego se utilizan para efectuar una inserción ordenada 
con el fichero de las claves (merge-fusión). 

Dicho vector lógico está subdividido en dos vectores físicos: 
EY$ que contiene las claves y EY% que contiene los punteros co¬ 
rrespondientes escritos en el fichero MST.FL. Dichos vectores se 
dimensionaron a 25 elementos para permitir un "buffereado" de 
un máximo de 25 inserciones consecutivas, de las cuales, además, 
será necesario efectuar una fusión o intercalación (merge). 

La secuencia de las instrucciones viene indicada en la figura 
4. Como puede observar, se comprueba inmediatamente la posi¬ 
bilidad de insertar elementos y solamente en caso favorable se 
efectúan las acciones preparatorias, es decir, obsolencia de los ín¬ 
dices auxiliares (que después de la inserción pueden actualizarse 
solamente a petición) y preparación del vector "entry’’ antes des¬ 
crito con elementos de clave libre y puntero a los registros libe¬ 
rados por eliminaciones o nunca utilizados. 

Una vez terminada la fase preparatoria el control pasa a la 
subrutina de gestión de entrada de campos con el parámetro 
CO=0 que indica la inserción. A continuación se efectúa un con¬ 
trol de existencia de la clave de acceso. Finalmente, el registro se 
escribe en el disco, mientras que la clave correspondiente se in¬ 
serta en el vector "ENTRY” como se indica en la figura 5, donde 
"K” indica el número de elementos existentes en el vector. Como 
puede constatarse, se efectúa un desplazamiento de las claves in 
sertadas con anterioridad, hasta encontrar el lugar para la nueva, 
de modo que se mantenga la ordenación. 

Si se solicita otra inserción se repite la operación con alguna 
modificación, es decir, se controla la disponibilidad de memoria 
en disco y el vector entry, obligando ocasionalmente a una fusión 
o intercalación, escribiendo los índices en disco, etc., hasta la con¬ 
clusión de la fase. 

Vale la pena examinar el algoritmo de fusión (merge) utiliza¬ 
do (descrito en la figura 6), que encuentra correspondencia en un 
número verdaderamente reducido de instrucciones BASIC. NX in¬ 
dica el número de elementos del vector índice antes de la inser¬ 
ción, ”K” el número de los elementos a insertar y EA el número 
de elementos asignados. Una vez actualizado el número de ele¬ 
mentos asignados se ejecuta la operación de inserción tantas ve¬ 
ces como elementos haya que insertar. Al estar ordenados los vec¬ 
tores Índex y entry es posible, a partir de los últimos elementos 
del vector Índex, efectuar desplazamientos y comparaciones con 
el último elemento del vector entry, transfiriendo este último so¬ 
lamente cuando resulte ser mayor que la clave comparada. 

De este modo se prosigue el proceso hasta agotar los ele¬ 
mentos del vector entry con una sola exploración del vector in- 
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INDICACION DE QUE LOS INDICES AUXILIARES YA 
NO ESTAN ACTUALIZADOS K - 1 CM - 0 


INICIALIZACION DEL VECTOR ENTRY 


SOLICITUD DE LOS DIVERSOS CAMPOS I 1-13 
DEL REGISTRO (1500) - - 


COMPROBACION DE QUE LA CLAVE YA EXISTE 
CON ANTERIORIDAD (23000) 


FUSION DEL VECTOR 


ESCRITURA EN DISCO DEL REGISTRO | 1-M 


(3100) 


VISUALIZA "YA NO 
HAY LUGAR' (59000) 


INICIALIZ. EN EL 
VECT. ENTRY (2400) 




20050 GOSUB 24000 
20040 K=1 
20070 CK=0:J=0 

20080 HOME:HTAB 15:PRINT "INSERCION" 

20090 FOR 1=1 TO NC(0):RV$(I,0):NEXT 
20120 GOSUB 15000 
20150 PRINT W$(1);EYX<K) 

20140 FOR 1= 1 T0 NCíO)¡PRINT RV*íI,0!:NEXT 
20170 PRINT Di 
20200 GOSUB 3100 

20210 VTAB 23:CALL -S48:PRINT 'OTROS REGISTROS?";:GET A*:PRINT :IF Aí="N" THEN 2 
0240 

20230 IF NX+K=EM THEN GOSUB 59000;GOTO 20240 

20240 IF K=25 THEN GOSUB 2500:G0SUB 2000:G0SUB 24000:K=0 

20250 K=K+1:GOTO 20080 

20240 GOSUB 2500:GOSUB 2000 

20270 PRINT Mil):PRINT 0*11) 

20280 RETURN 

24000 REM INICIALIZACION ENTRADA 
24005 EY*(0>=" 

24010 FOR 1=1 T0 25 
24020 EVtíI)=FR*:EYX(I)=NX+I 

24030 IF EA >= NX+I THEN PRINT RJ(0)(NX+I)¡INPUT Aí:INPUT EYX(I):PRINT D$ 

24040 RA=DL:DI=R0 
24050 RETURN 


Figura 4.—Inserción del 


registro en el archivo base. 


dex. De este modo se obtiene también el índice a partir del cual 
hay que iniciar la reescritura en disco de los únicos elementos ob¬ 
jeto de actualización. 


Borrado 

La fase permite el borrado de registros base y listas corres¬ 
pondientes anteriormente objeto de inserción. Es inútil decir cuán 
peligrosa es dicha función, por lo que necesita la confirmación por 
parte del operador para permitirle darse cuenta perfecta de lo 
que va a hacer. 

En las búsquedas el acceso a los datos de base se realiza 
siempre a partir del índice principal o de los índices auxiliares 
con el puntero asociado a los mismos. Para borrar el registro de¬ 
seado basta inhibir el acceso ai registro base, es decir, eliminar 
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J100 REM INSERCION DE UNA NUEVA CLAVE EN EL VECTOR ENTRY 
3105 AI=EY7.(K) 

3110 FOR I=K-1 TO 1 STEP -1 

3120 IF EY$(I) > RV$(1,0) THEN EY»(I*1) = EY$(Ih£YX<I+l)=EY7.(I)sNEXT 
3130 EYt(I+I) =RVÍ(1,0) :EYX(I+1)=A5C 
3140 RETURN 

mw Figura 5.—Inserción de una nueva clave en el vector ENTRY. 

simplemente la clave del índice principal e indicar la no validez 
de los índices auxiliares o secundarios. 

En lo que respecta a la ocasional lista asociada, bastará escri¬ 
bir 0 en el fichero LNK.ENTRY y poner en cola la lista con la lista 
libre. 
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2520 FOR K=K TQ 1 STEP -1 
2530 FOR 1=1 TO 1 STEP -1 

2535 PRINT RílOlIslNPUT IX$:INPUT IXZrPRINT MÍOXWO 
2540 IF EV$(K) < IX» THEN PRINT IX»:PRINT IXX-.NEXT 
2550 PRINT EYtiPRINT EYX(K) 

2500 NEXT K 

2570 PRINT MÍO)-.PRINT 0t(0) 

2580 RETURN 


' Figura 6.—Fusión del vector ENTRY en el vector INDEX. 


Para todos los efectos el registro base no se elimina de ma¬ 
nera física, sino que se declara libre la llave de acceso correspon¬ 
diente, con lo que la primera inserción dispondrá del espacio por 

superposición. , , . 

Las modificaciones que el borrado exige al diccionario prin¬ 
cipal son opuestas a las que requiere la inserción, pero llevan con¬ 
sigo también la actualización del MST.1NX en el disco, con todas 
las problemáticas de velocidades antes consideradas. Por consi¬ 
guiente, utilizaremos también en este caso los vectores de prepa¬ 
ración EY$ y EY%, donde almacenar claves y punteros a los re¬ 
gistros objeto de borrado, y solamente al final de la fase, o al lle¬ 
narse el vector, exploraremos una vez el vector IX$ para anular, 
de forma lógica, las claves y ponerlas a la cola de las claves vá¬ 
lidas reordenadas. 

Haciendo referencia a la figura 7, si se habilitó un índice se¬ 
cundario se obliga al empleo del índice principal, porque las ac¬ 
tualizaciones sucesivas se efectuarán solamente en dicho índice. 
A continuación, se preparan los vectores entry y se pone a 0 el 
número de registros objeto de borrado. Para solicitar al operador 
qué registro borrar se utiliza parte de la rutina de búsqueda, a la 
que se pasa el parámetro CA = 1. Una vez encontrado el registro 
objeto de borrado, se visualizará y se solicitará la confirmación co¬ 
rrespondiente con miras a la seguridad. En caso afirmativo, se al¬ 
macena la clave en el vector entry de manera ordenada aumen¬ 
tando el número de registros objeto de borrado. Solamente cuan¬ 
do sean 19, o cuando el operador ya no solicite más eliminacio¬ 
nes, se efectuará la compactación en el vector IX$ de las claves 
principales válidas y la puesta en cola de las claves anuladas. Para 
cerciorarse de que cada información se almacenó en disco, des¬ 
pués de la escritura se efectúa un cierre y una posterior reaper¬ 
tura de los ficheros utilizados. Los bloques correspondientes a la 
búsqueda de registro (1.3) y visualización (1.1.3) los analizaremos 



25000 REM ELIMINACION 

25010 IF FI THEN PRINT C»(XF):FI=0 

25020 C=0 

25030 FOR 1=0 T0 20:EY* <I)=FPS:EYZ(I> =0:NEXT 
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25040 CA=1¡60SUB 30000 
25050 IF KH$="“ THEN 25200 
25060 CM=1íJ=0:MOME:B09üB 15000 
25070 VTAB 22:INPUT "LO CONFIRMA? "jBÍ 
25080 IF Bt<> “S" TKSN 25040 
25090 60SUB 26040 

25100 IF C=19 THEN 60SU8 25500:GOTO 25020 
25130 GOTO 25040 
25200 60SUB 25500 
25210 PRINT C*(0) 

23230 PRINT 0í(0) 

25240 IF FL THEN FOR 1-4 TO 6:PRINT CtlDiPRMT 0*(I):NEXT 
252B0 EY$(0)="“:CA=0 
25290 RETURN 


jgg Figura Z— Borrado de registro en archivo base. 


a continuación, mientras que veremos con detalle la fusión ae la 
clave en el vector entry y el borrado. 

La figura 8 representa la inserción de la clave en el vector 
entry. En primer lugar, se explora el vector entry hasta encontrar 
un elemento mayor o igual a la clave IX$ a insertar; si la clave y 
el elemento son iguales, el registro está ya en la fase de borrado 
y se llega, pues, a una situación no variada. Por el contrario, si el 
elemento es mayor, se trasladan todos los elementos sucesivos 
una posición, dejando espacio para la inserción de la clave, au¬ 
mentando el número de elementos objeto de borrado. 

En la figura 9 mostramos la comprensión del diccionario fren¬ 
te a las claves objeto de borrado. Es evidente, que si no hay bo¬ 
rrados nada se modificará; de no ser así, se visualizará una lista 
de los registros que han de borrarse, solicitando una posterior con¬ 
firmación por parte del operador. En caso afirmativo se borrarán 
antes las cadenas asociadas a los registros y luego se actualizará 
el índice principal según se indica en la figura 10. 

Para hacer más rápido el procedimiento se encuentra la pri¬ 
mera clave con la búsqueda binaria y se procede luego a reubi¬ 
caciones en compresión, recubriendo las claves a eliminar, hasta 
silvar todos los elementos válidos. Para poder utilizar los registros 
borrados se asocian a las claves libres FR$ los punteros a los re¬ 
gistros, almacenados de forma provisional en el vector EY%. Por 
último, se actualiza el número de los registros válidos y se indica 
que están fuera de uso los índices auxiliares o secundarios. 
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EYS (N + 1)-EYS (N) 

HIHKHI 

EY% (N + 1) - EY% (N) 




Jt/fEL 

• 


26040 



EYS (I) - PXS (P) I 26070 


EY% (I) . IX% (P) 


26000 REM INSERCION DEL REGISTRO ELIMINADO EN EL VECTOR ENTRY 

26010 FOR 1=0 T0 C 

26020 IF EY$(I) < IX* THEN NEXT 

26030 IF EYX(I) = IXX THEN RETURN 

26040 FOR N=18 T0 I STEP -1 





26050 EYtlN+1)=EYt <N):EYXÍN+1)=EYX(N) 
26060 NEXT 

26070 EYi(I)=IXX¡EYX(I)=IXX 
26080 C=C+1:RETURN 


jn Figura 8— Fusión en el vector ENTRY del registro borrado. 


Búsqueda binaria 


Con respecto al algoritmo propiamente dicho de búsqueda 
binaria presentando en el capítulo segundo, la subrutina de la fi¬ 
gura 11 resulta más complicada, por cuanto que controla la bús¬ 
queda tanto en memoria (en el vector de los índices principales) 
como en el disco (en los ficheros de los índices secundarios). 

Además, la comparación se efectúa solamente en los LK pri¬ 
meros caracteres del campo, en donde LK es la longitud de la cla¬ 
ve, con el fin de encontrar todas las claves cuyos primeros c?“ 
teres sean iguales a la clave buscada. 

Después de haber asignado los valores iniciales a loo varia¬ 
bles, si se están utilizando los índices auxiliares se toma IV como 
el número máximo de elementos y el menor entre la longitud de 
la clave objeto de búsqueda y la longitud de la clave grabada en 
disco (puede suceder si la clave en disco fue objeto de trunca- 
ción). A continuación, la subrutina busca la clave en modo bina¬ 
rio, comparando KM$ (clave solicitada) con A$, que contiene una 
de las claves en memoria o en disco, según el tipo de índice uti¬ 
lizado. Si a la salida "F” vale 0, ello indica que la clave no fue en¬ 
contrada y si vale 1, en "P" existe el número de orden de la clave 
en búsqueda en el vector adecuado. 


Cambio de índice 


La figura 12 representa la subrutina que permite el índice de 
acceso al fichero MST.FL. Estos índices auxiliares están grabados 
en disco, por lo que la búsqueda binaria ya no se efectúa en me- 
moría, sino en disco. La variable Fí indica, si es diferente de 0, cuá- 
les de los cuatro índices posibles se están utilizando. 

A la entrada de la subrutina, si era activo cualquier índice se¬ 
cundario, se cerrará el fichero correspondiente y se presentará la 
situación de los índices disponibles, con la indicación de si están 



25500 REH ELIMINACION FISICA 
25505 IF NOT C THEN RETURN 

25510 HOME:HTAB 10¡PRINT “REGISTRO EN ELIHINACION*:PRINT 

25520 F0R 1=0 T0 C-liPRINT EY«(I):NEXT 

25530 PRINT ¡INPUT “LO CONFIRMA? "¡At 

25540 IF A»<>"S" THEN RETURN 

25560 F0R 1=0 T0 C-l 

25570 N=EYÍ(I) 

25580 IF FL THEN G0SUB 29000 
25590 NEXT 
25600 G0SUB 26250 
25620 G0SUB 2000 
25630 RETURN 


Figura 9—Eliminación física del registro. 








26250 REM CONPACTACION INDICES ANTIGUOS (ACTUALIZACION DEL INDICE) 
26255 PRINT :PRINT "COMPACTADION: FLASH:PRINT "ATENCION":NORMAL 

26260' K=0:KN$=EY(0):G0SUB 600:G0SUB 3500 
26270 PRINT Rt(0)I:INPUT IXi:INPUT IXX 



90 


26280 IF IXMYXOO THEN K=K+1:G0T0 26300 
26290 PRINT «1(0)(I-K)¡PRINT IX»:PRINT 1X7. 

26300 NEXT 

26310 FOR I=EA-K+1 TO EA:PRINT Wt(0)I:PRINT FR*:PRINT EY7.(I-EA+K-1):NEXT 
26320 NX=NX-C:FOR 1=1 TO 4:IA(I,2)=0:NEXT 
26330 RETURN 

J||p? Figura 10—Actualización del índice después del borrado. 


actualizados o no, solicitando cuál se desea utilizar. Una vez rea¬ 
lizada la elección se abre el fichero correspondiente y a partir del 
mismo se lee el número de elementos existentes en el fichero, 
que puede ser diferente de NX si el índice ya no está actualizado. 
Este número (IV) se utilizará en las subrutinas de búsqueda en lu¬ 
gar de NX como límite superior de búsqueda. 


Habilitación-deshabilitación de cadena 

La subrutina de la figura 13 efectúa la negación del estado an¬ 
terior de utilización, correspondiente a las cadenas, condicionado 
no obstante por el indicador PL de presencia de Link. De hecho, 
si existen los ficheros concatenados (Link) y están activos (PL y 
FL puestos a 1), se cerrarán los ficheros correspondientes. Si PL 
está puesto a 1 a FL se le asigna el valor negado del anterior. Si 
FL pasa a 1, ello quiere decir que las cadenas estaban desactiva¬ 
das y se quiere habilitarlas; entonces se lee el fichero LNK.CTRL, 
que contiene la descripción de los registros concatenados, y se 
abren los tres ficheros necesarios para el acceso a los datos. 


Búsqueda y/o modificación 

La subrutina de búsqueda.de un registro es el elemento fun¬ 
damental del programa, por cuanto que permite tener acceso, de 
diversos modos, a los registros de archivo, así como por permitir 
la gestión completa de los ficheros concatenados; además, se uti¬ 
liza también en parte de la fase de borrado. 

Inicialmente, según puede observarse en la figura 14, se so- . 
licita la clave, que es el primer campo del registro si se está uti¬ 
lizando el fichero MASTER INDEX o si se está empleando el cam- 
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LX - LONGITUD DE LA CLAVE 


10 ENCONTRADI 


LECT. DEL REGISTRO l'-ESIMO 
A PARTIR DEL INDICE EN AS 


ENCONTRADO 


640 P = INT ((L + N) / 2):PRINT RÍÍXF);P:INPUT A$:PRINT Dt 
650 IF LEFTÍ (KM$,LK) < LEFT$ (fl*,LK! THEN N = P - 1:SOTO 630 
660 IF LEFTt (KM*,LK) > LEFT» (A*,LK) THEN L = P + 1:60T0 630 
670 F = 1:RETURN: REH ENCONTRADO 


Figura 1 ¡.—Búsqueda binaria. 



51000 REM CAMBIO DE INDICE 
51010 IF FI THEN PRINT C*(FI+6) 

51030 HOME:HTAB 15:PRINT "INDICES POSIBLES”¡PRINT ¡PRINT "0 *;LB*(1,0) 

51040 FOR 1=1 TO 4 

51050 IF NOT IA(I,0! THEN 51080 

51060 PRINT I" “;LB»(IA(I,0),0);:IF NOT IA(I,2) THEN HTAB 20:PRINT •NO" 
51070 HTAB 24:PRINT "ACTUALIZADO" 

51080 NEXT 

51090 VTAB 10: INPUT "CUAL? ”;A*:A7.=VAL(A») 

51100 IF NOT A7, THEN FI=0: XF=FI:RETURM 
51110 IF A l >4 OR IA(A7.,0)=0 THEN 51090 
51120 FI=AX:XF=FI+6 
51130 PRINT Ot(XF) 

51140 PRINT R*¡0:INPUT IViPRINT D$ 

51170 RETURN 


Figura 12.—Cambio del indice. 




























62020 


62030 


52000 REM GESTION DE INDICADORES DE ESTADO DE LAS CADENAS 
52010 IF PL AND FL THEN FOR 1=4 TO GiPRINT C*(I):NEXT 
52020 IF PL THEN FL=NOT FL 
52030 IF FL THEN GOSUB 10000 
52040 RETURN 


JjH® Figura 13.— Habilitación/deshabilitación de las cadenas. 


po correspondiente al índice auxiliar o secundario. Para el caso 
de clave nula se sale de la subrutina, cerrando los ficheros si se 
efectuó alguna modificación (para asegurarlos contra la caída dé 
tensión) y escribiendo en el fichero BD.CTRL la nueva situación 
(lo que es necesario para indicar que un índice auxiliar ya no está 
aclualizado si se modificó el campo correspondiente en uno cual¬ 
quiera de los registros). 



30000 REN BUSQUEDA Y MODIFICACION 
30010 HOME 

30020 PRINT LBt(l+(FI)0)t(IA(FI,0!;:INPUT "¡ “;KMÍ 
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30030 IF KH$= n " AND (NOT CA) THEN 30250 
30035 IF KM$="" AND (CA) THEN RETURN 
30040 GOSUB 4000:IF NOT F THEN 30000 
30060 GOSUB 700 

30100 FOR 1=1 TO NC(J):RB$(I,J):NEXT 
30110 IF (CA) THEN RETURN 
30120 CM=2-FL:HOME:60SUB 15000 
30140 IF NOT FN THEN 30210 
30150 GOSUB 9000 
30160 PRINT M(l)¡m 

30170 FOR 1=1 TO NC(O):PR1NT RV*(I,0):NEXT ¡PRINT Dí 
30210 IF FL THEN N=IX7.:G0SUB 35000 
30220 GOTO 30000 

30250 IF SL(O) THEN PRINT CÍ(1):PRINT 0$(1):G0SUB 2000 
30270 IF SL(1) THEN FOR 1=4 TO 6:PRINT C*(I):PRINT 0»(I):NEXT 
30290 RETURN 

Figura 14.—Búsqueda y modificación. 


Por el contrario, si la clave no es nula se inicia la subrutina de 
búsqueda propiamente dicha (a partir de la línea 4000) y si se en¬ 
cuentra el registro será objeto de lectura. Después de lo anterior 
si la etapa fue actuada por el borrador (CA=1), se saldrá de la 
subrutina. De no ser así se visualizará el registro, permitiendo la 
modificación de cada campo con la excepción de la clave princi¬ 
pal. Si se efectúan modificaciones se inicia una subrutina (líneas 
a partir de la 9000) que sirve para comprobar si se varió un cam¬ 
po utilizado como índice (en cuyo caso, se señala que el índice 
ya no está actualizado) y luego se vuelve a escribir el registro. En 
éste punto, si están activos los registros de Link, se llama la su¬ 
brutina de gestión correspondiente (líneas a partir de la 35000). 


MWVWM’I! 


ULTIMAS SUBRUTINAS... 


odemos observar en la figura 1 cómo se efectúa 
la búsqueda: la subrutina de búsqueda binaria, 
entre todas las claves cuyos primeros caracte¬ 
res sean iguales a la de la clave buscada, pro¬ 
porciona el índice de una de ellas, pero no se 
sabe si es la primera, la última o una cualquiera 
de ellas. Es necesario, pues, partiendo de la cla¬ 
ve señalada por la búsqueda binaria remontar¬ 
se hacia atrás en el diccionario (figura 2) hasta 
encontrar una clave que no sea igual a la de búsqueda. Después 
de ello, si el elemento encontrado es el último existente en el ín¬ 
dice en uso, terminará la subrutina. 

En resumen, pues, la búsqueda se realiza del modo siguiente: 
proporcionada la clave de acceso, la subrutina de búsqueda bi¬ 
naria suministra el índice de una clave cuyos primeros caracteres 
son iguales a los de la clave requerida; luego se busca la primera 
de estas claves y a partir de ella en adelante se visualizan todas 
las que satisfacen la condición requerida, para pasar al operador 
la deseada. Se ve pues que, cualquiera que sea el índice que se 
esté utilizando, basta proporcionar al programa una clave parcial 
para que se encuentren todas aquéllas cuyos primeros caracteres 
sean idénticos a la clave requerida. 

En la figura 4 constatamos lo que hace la subrutina de control 
con respecto a los índices auxiliares o secundarios: en efecto, para 
cada uno de los índices existentes comprueba si se modificó el 
campo que hace de índice, en cuyo caso señala que el índice ya 
no está actualizado (1A(I,2)=0). 

De no ser así se visualizan todas las claves compatibles con 
la buscada, subdivididas en grupos para permitir la elección de 
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4000 REM BUSQUEDA POR INDICES 

4010 BÍ="SELECCIONAR POR NUMERO”:E$=“RETURN PARA ■ 

4020 60SUB 600:GOSUB 900 

4030 GOSUB 3500;GOSUB 900 

4040 IF <P=EM) OR (FI AND P=IV) THEN RETURN 

4050 I=1:6GSUB 3B00 

4070 IF KM$<> LEFT$ <AJ,LEN(KM»)) THEN RETURN . 

4080 J=NX:IF FI THEN J=IV 

4090 PRINT 

4100 FOR 1=0 TO J-P 

4110 GOSUB 3800 
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4120 IF KHK >LEFTÍ (A$, LEN (KM)) TNB 6ÜSU6 43#0 
4130 PRINT SPC(3-LEN(STR*(1+1)));1+1* ’A»; 

4134 IF FI THEN HTAB (39-LL(1,0):PRINT 1 ”K0*¡ 
4136 PRINT 

4140 IF I=INT (1/17)117 AND I THEN GOSUB 4400 
4150 NEXT 

4160 GOSUB 4300:RETURN 

4300 REM SELECCION FINAL 

4310 VTAB 22:PRINT Bí 

4320 PRINT E$¡:INPUT “SALIR”;A$:AZ=VAL(A$) 

4330 IF NOT AX THEN F=0:G0TO 4360 

4340 IF AKl OR AX>I THEN 4310 

4350 P=P+AX-1 

4360 POP:RETURN 

4400 REM SELECCION MEDIA 

4410 VTAB 22:PRINT B* 

4420 PRINT E»;:INPUT "CONTINUAR”;A*:AX=VAL(Ai) 
4430 IF NOT A7. THEN VTAB 3:CALL -958:RETURN 
4440 IF AKl OR AXM+l THEN 4410 
4450 P=P+AX-1 
4460 POP¡RETURN 


Figura 1.—Búsqueda mediante los diversos índices. 


la deseada. Dos son las subrutinas utilizadas con tal objeto; una es 
la de selección intermedia, cuando la pantalla está llena aunque 
existen todavía claves compatibles, y otra es la de selección final 
cuando, por el contrario, se han visualizado todas las claves. Si se 
está utilizando un índice auxiliar o secundario se leerá la clave 
principal a partir del registro base (figura 3) y si la clave del ín¬ 
dice estaba abreviada, también la clave completa, visualizando 
luego ambos campos. 

Pasamos ahora a la parte más árida, a la más compleja del pro¬ 
grama: la gestión de los registros concatenados. 

En la figura 5 se representan las acciones que se pueden to¬ 
mar con respecto a las listas: inserción, exploración y borrado de 
registros, con eliminación completa de una cadena. 

Pero no acaba aquí la cuestión, puesto que es preciso com¬ 
pletar todavía la actualización de la lista correspondiente al regis¬ 
tro base en el que se está trabajando. 

Se lee luego a partir de LINK.ENTRY y la antigua cabecera de 
la lista (que será O si no había registros concatenados con ante¬ 
rioridad) y se escribe en el fichero LNK.PTR, en correspondencia 
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3500 REN BUSQUEDA HACIA ATRAS 
3510 F=D 

3520 FOR P=P TO 1 STEP -1 
3540 SOSUB 3600 

3550 IF KH$=LEFT»(A$, LEN,(KM*)) THEN F=1:NEXT 
3560 P=P+1 
3570 RETURN 

3600 REM LECTURA DE INDICE EN DISCO 
3610 PRINT Rt(XF1;P:INPUT AíiINPUT AZ 

3620 IF FI THEN IF LEN(Kltt) > IAIFI, 1) THEN PRINT R$(1);AX:F0R 1=1 TO IA(FI,0):I 
NPUT At:NEXT 
3630 PRINT Oí 
3640 RETURN 


Figura 2.—Búsqueda hacia atrás. 


1.3.1 2 



3800 REH LECTURA EN DISCO DE LA CLAVE DE ACCESO A PANTALLA 
3810 P=P+1 

3820 PRINT R$(XF);P:INPUT Aí:INPUT AZ:IF NOT FI THEN 3850 
3830 PRINT R*(l);AÍ:INPUT KOÍ 

3840 IF IAIFI,1) < LL(IA(FI,0)0) THEN FOR HK=2 TO IAIFI,0)iINPUT A$:NEXT 
3850 PRINT Dí 
3860 P=P-1 
3870 RETURN 

BBM Figura 3.—Lectura de la clave de acceso en disco. 


con el registro escrito en el fichero LNK.FILE; por último se escri¬ 
be en el fichero LNK.ENTRY el número del registro LNK.FILE. 

En todo el procedimiento "N" indica el_ número del registro 
base en el que se está trabajando y "X" el número del registro de 
cadena que se tiene que escribir. 
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1.3.3 



9000 REM BUSQUEDA VARIACIONES DE LOS CAMPOS INDICES 
9010 FOR 1=1 TO 4 

9020 IF IA(I,0) THEN IF RV*(IA(I,0),0) O RB»(IA(I,0),0) THEN IA(I,2)=0 
9030 NEXT 
9040 RETURN 


I Figura 4.—Búsqueda de variaciones de los campos índice. 


Inserción 

Se comprueba (figura 6) que el indicador DF que señala la 
condición de disco .lleno no es igual a 1; de no ser así se termina 
de inmediato la fase. En caso contrario se prosigue la ejecución 
del programa llamando a la subrutina de entrada de campos ge- 
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35000 REM GESTION DE LAS CADENAS 

35010 VTAB 19:CALL -958:PRINT “ 1- INSERCION EN CADENA" 

35020 PRINT " 2- EXPLORACION Y ELIMINACION" 

35025 PRINT " 3- ELIMINACIN CADENA" 

35030 INPUT "(RETURN PARA SALIR) “¡Ai 
35040 IF A»="“ THEN RETURN 
35050 0N VALIA») KM SMM.37M0, 29000 
35060 UTO 33060 

gmmFigura 5— Gestión de las cadenas. 


neralizada (líneas a partir de 15000) con parámetros CM=0 que in¬ 
dica la creación y J=1 que indica que se trata del registro de ca¬ 
dena. Una vez terminada la entrada de los campos es preciso es¬ 
cribir en el disco, y si la cabecera de la lista libre DL es nula, se 
escribirá el registro número IL; en caso contrario se escribirá el 
registro número DL. En el primer caso se tiene que incrementar 
IL y escribirlo en el registro 0 del fichero LNK.PTR; de no ser ¡así, 
lee a partir del fichero LNK.PTR en el registro que tiene el mismo 
número que el que se acaba de escribir, la nueva cabecera de la 
lista libre y la escribe en el registro 0 del fichero LNK.ENTRY. 


Exploración y borrado 

La subrutina de la figura 7 permite explorar una cadena, vi¬ 
sualizando un registro cada vez, modificándolo y, si así se quiere, 
eliminándolo. La subrutina utiliza el indicador RO (record oíd = re¬ 
gistro antiguo) y el RA (record attale = registro actual) que indi¬ 
can respectivamente, el número del penúltimo y último registros 
leídos a partir del disco. Existe una sola limitación, y es que no se 
pueden borrar dos registros consecutivos. Para hacerlo, después 
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36000 REM INSERCION DEL REGISTRO EN CADENA 

36010 IF DF THEN PRINT "DISCO LLENO";:GOSUB 5B000:RETURN 

36020 ONERR GOTO 38100 
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36030 VTAB 5:CALL -958 

36040 J=1:CM=0:F0R 1=1 TO NC(l):RV$(I,n=":NEXT :60SUB 15000 
36050 X=DL:IF NOT X THEN X=IL 
36060 PRINT HÍ(6);X 

36070 FOR 1=1 TO NCIlhPRINT RVt(1,1):NEXT 

36080 IF NOT DL THEN 36140 

36090 PRINT Rt(5)jX:INFUT DL 

36110 PRINT Kt(4);0:PRINT DL 

36130 GOTO 36170 

36140 IL=IL+1 

36150 PRINT Wt(5);0:PRINT IL 
36170 PRINT R$(4);N¡INPUT A 
36185 ONERR GOTO 38000 
36190 PRINT M(5);X:PRINT A 
36210 PRINT W$(4);N:PRINT X 
36230 PRINT DííPOKE 216,0 
36240 RETURN 


i Figura 6.—Inserción del registro en cadena. 


de la primera eliminación, basta volver a comenzar la exploración 
desde el principio y, una vez alcanzado el nuevo registro a bo¬ 
rrar, se puede realizar dicha operación. Por el contrario, si los dos 
registros no son consecutivos, se pueden borrar libremente sin te¬ 
ner que volver a comenzar desde el principio de la lista. 

Cuando se elimina un registro, en la pantalla aparecerá el an¬ 
terior a no ser que se esté al comienzo de la cadena, en cuyo caso 
no se visualiza nada. 

Durante la exploración de la cadena, en la parte alta de la pan¬ 
talla se mantienen visualizados los dos primeros campos del re¬ 
gistro base, con el fin de saber siempre cuál es la referencia de 
los datos. 

Veámos cómo funciona esta subrutina. Una vez puestos a O 
los indicadores RO y FD (indicador de borrado), se lee en RA la 
cabecera de la cadena; si RA es igual a cero ello quiere decir que 
la cadena es nula. Si RA es distinto de cero se lee el registro nú¬ 
mero RA del fichero LNK.FILE y, con el parámetro CM=2 (modifi¬ 
cación) se llama a la habitual subrutina de visualización de regis¬ 
tro. A la salida de esta última, si el registro fue objeto de modifi¬ 
cación, se le vuelve a escribir y luego, en cada caso, se llega a 
una posterior posibilidad de elección: salida de la exploración (S), 
borrado del registro visualizado (B) o continuación de la explora¬ 
ción (RETURN). Si la elección es S terminará la subrutma; si la elec- 
ción es continuar la exploración, se graba en RO el número de RA 
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37000 REH EXPLORACION DE LA CADENA DE REGISTROS CON POSIBILIDAD DE ELIMINACION 
37010 RD=0:FD=0 
37020 PRINT R*(4);N 
37030 INPUT RA:PRINT Dí 

37040.IFINOT RA) THEN VTAB 22:CALL -958:PRINT 'FIN ‘¡GOTO 38000 

37050 PRINT R«(6);RA 

37060 J=1: GOSUB BOO 

37090 CM=2:VTAB 5:CALL -958 

37100 GOSUB 15000 

37110 IF NOT Fíl THEN 37140 

37120 PRINT Hí(6);RA 

37130 FOR 1=1 TO NC(1):PRINT RV$(I,1):NEXT 

37140 PRINT D*:VTAB 20:CALL -95B:PRINT "EIXIT D)£L." 

37150 PRINT "(RETURN PARA CONTINUAR):GET A*:PRINT 

37160 IF A4=‘E“ THEN RETURN 

37170 IF At="D" AND NOT FD THEN 37250 

37180 IF At<> CRt THEN 37140 

37190 RD=RA:FD=0 

37200 PRINT Rt(5)¡R0 
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37210 GOTO 37030 

37250 REH ELlWNftCIO» CADENA 

37260 FD=1:SL(1)=1 

37270 IF DF THEN DF=0:GOSUB 2000 

37280 PRINT R*(5)jRA:INPUT A 

37290 IF NOT RD THEN 37310 

37300 PRINT NK5);RO:GOTO 37320 

37310 PRINT H$(4);N 

37320 PRINT A 

37330 PRINT HÍ(5)¡RA 

37340 PRINT DI 

37350 DL=RA 

37360 PRINT Nt<4);0 

37370 PRWT DL 

37368 VT® 3: CALL -mi ÍNWM 
37390 m m 
37406 IF fi8 WW 37049 
37410 6ESBN 


/ Figura 7.~Exploración de la cadena de registros con posibilidad de 

borrado 


del registro actual y se lee a partir del fichero LNK.PTR el número 
RA del siguiente registro que constituye la cadena, volviendo lue¬ 
go al comienzo para comprobar si RA es igual a cero. 

Por el contrario, si se solicita el borrado (B) se pondrá FD a 1 
para indicar que se efectuó una eliminación y si el disco de los 
ficheros concatenados estaba lleno, se escribirá en el fichero 
BD.CTRL que ahora ya no lo está. El borrado se efectúa del modo 
siguiente: se lee cuál es el número del siguiente registro en la lis¬ 
ta y luego, si RO es igual a cero, es decir, si se está al comienzo 
de la cadena, se escribe este número en el fichero LNK.ENTRY, re¬ 
gistro N-ésimo. De no ser así, se escribe en el registro RO del fi¬ 
chero LNK.PTR. Por consiguiente, se consigue que si se elimina el 
primer registro de la lista se escriba como nueva cabecera el se¬ 
gundo registro de la lista; si se elimina uno cualquiera de los re¬ 
gistros se escribirá en el puntero del anterior el número de orden 
del sucesivo al eliminado. 

Ahora sólo nos queda hacer que el registro eliminado pueda 
reutilizarse, añadiéndolo a la lista libre; entonces se toma la anti¬ 
gua cabecera de esta lista (DL) y se la escribe en el registro eli¬ 
minado en el fichero LNK.PTR* A DL se le da el valor RA del re¬ 
gistro borrado y se escribe en el registro cero de LNK.ENTRY, por 
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29000 REM ELIMINACION EN CADENA 
29010 PRINT Rí(4¡ ¡N.'INPUT RO 
29030 IF NOT RO THEN PRINT Di:RETURN 
29035 SL(1)=1:IF DF THEN DF=0;GQSUB 2000 
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29045 PRINT W$(4);N:PRINT O 

29050 PRINT H*(4);0:PRINT DL 

29070 IF (NOT RA) THEN PRINT Dt: RETURN 

29080 PRINT M<5) ¡ROilNPUT A 

29100 IF AOO THEN RG=A:GOTO 29080 

29110 PRINT W$(5);RO:PRINT RA:PRINT DI 

29120 RETURN 


JH|p Figura 8— Eliminación de una cadena. 


lo que quedará grabada en disco la nueva situación. Para volver 
al ciclo normal de la subrutina bastará dar a RA el valor de RO 
del registro anterior en la lista y volver a la visualización normal 
si existe el registro o se terminará la subrutina si no hay nada an¬ 
terior en la lista a visualizar. 


Borrado de una cadena 

Si la cadena es nula (hay un cero en el fichero LNK.ENTRY en 
correspondencia con el registro base objeto de examen) se ter¬ 
minará la subrutina contenida en la figura 8. En caso contrario se 
proseguirá la ejecución del programa indicando también aquí si 
se libera un disco lleno. Después de grabar en RA la antigua ca¬ 
becera de la lista libre, a DL se le da el valor de la cabecera a bo¬ 
rrar; se escribe cero en el fichero LNK.ENTRY en el registro N-é- 
simó (lista nula para el registro base N) y se escribe DL en el re¬ 
gistro 0 de LNK.ENTRY. 

Si RA es igual a cero, es decir, si no existía ninguna lista ¿libre, 
hemos acabado el proceso; en caso contrario se recorre toda la 
cadena eliminada hasta encontrar el último registro de la misma 
en el cual (con puntero en LNK.PTR) se escribe RA, es decir, la 
antigua cabecera de la lista libre. Por consiguiente, lo que hemos 
hecho es anular la cadena de registro N-ésimo e introducirla en 
la cabecera para la lista libre. 


Introducción de campos y visualización 

En diversos puntos del programa es necesario efectuar la vi¬ 
sualización de datos, tanto relativos al registro base como a los re¬ 
gistros controlados de listas; además, si se quiere controlar la in¬ 
serción y la modificación de las informaciones se tendría una pro¬ 
liferación notable de instrucciones que haría tediosa la programa- 
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15000 REM ENTRADA DE LOS CAMPOS 
15010 FM=0:FOR 1=1 TO NC(J) 

15020 VTAB(2+J*3+I):PRINT SPC(9-LEN(LB*K(I,J)));LB»(I,J); 

15050 SOSUB 15420 
15060 NEXT 

15065 IF NOT (CM OR FMITHEN 15110 
15070 IF CM=1 TREN RETURN 

15080 VTAB <4+JI3+NC(J)>:HTAB 20:PRINT MíjsGET A*:PRINT 
¡5100 IF At<>"S” THEN RETURN 
15110 FN=1jSL<J)=1 

15120 FOR 1=1 TO NC(J):IF J=0 AND CM=2 AND 1=1 THEN 1=2 
15130 VTAB(3+JÍ3+I):HTAB 11:CALL -866:PRINT LEFT$(T1$,LL(I,J)) 
15140 GOSUB 15400 

15150 VTAB(2+JÍ3+I):HTAB 11:INPUT '”¡AÍ 


15160 IF AJ=” THEN 15200 

15170 IF TP(I,J)=2 THEN RVi(I,J)=LEFT*CSTR*(VAL(A*)),LL(I,J)) 
15180 IF TP(I,J)=1 THEN RVi<I,J) =LEFTt(Ai,LL(I,J)) 

15190 IF AiORVt(I,J) THEN PRINT CHRÍ(7);G0TC 15140 
15200 GOSUB 15400 

15210 VTAB <I+JÍ3+I>:HTAB U;CALL -868 

15215 IF RVi(1,0)="” THEN 15120 

15220 NEXT 

15230 GOTO 15065 

15400 REM VISUALIZACION 

15410 VTAB(2+J*3+I):HTAB 10:CALL -868 

15420 PRINT SPC(1+ILL(I,J)-LEN(RVi(I,J)))*(TP(I,J)=2));RVi(I,J) 
15430 RETURN 



Figura 9.—Introducción de los campos y visuaüzación. 


ción y disminuiría la disponibilidad de memoria. Se tiene, pues, la 
exigencia de tener que condensar en una sola rutina versátil to¬ 
das las necesidades relativas a la visuaüzación, inserción y modi¬ 
ficación de campos correspondientes a los registros base y auxi¬ 
liares. , . . 

El acceso a dicha subrutina se realiza con parámetros de de¬ 
finición de las funciones deseadas, según las claves para comando: 

CM=0: inserción 

CM=1: visuaüzación 

CM=2: modificación 

y "J" como indicador del tipo de archivo en el que se trabaja: 

J=0: registro de base de datos 

J=l: registro controlado de lista. 

Por supuesto, la subrutina hace referencia a los nombres de 
los campos almacenados en la matriz LB$(*J), al registro actual en 
la matriz RV$(*J), al tipo de campo TP(*J), a la longitud corres¬ 
pondiente LL(*J) y al número de campos NC(J). 

En la figura 9 se pone de manifiesto cuál es el efecto de la 
variable de control CM. Procediendo de forma ordenada se pone 
a cero el indicador de modificación y se visualizan los campos; si 
se trata de una sola visuaüzación (CM=1) se vuelve a la subrutina 
que efectuó la llamada. 
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Para la inserción (CM=1) o la solicitud de modificación (CM=2) 
se pone FL=1 y se pasa a la modificación según se indica en la 
figura 10. 

No se permite cambiar la clave principal en la fase de modi¬ 
ficación, puesto que si se hiciera así se plantearían problemas de 
ordenación de registro. 



' Figura 10.—Modificaciones de los campos (para el listado, véase Fi¬ 
gura 9). 


Para cualquier campo, la modificación se efectúa proporcio 
nando una indicación de la longitud 1 máxima admitida. 

Además, cada campo puede ser confirmado con RETURN o 
modificado tanto de forma total como parcial; en tal caso se rea¬ 
liza la comprobación de la corrección y, antes de pasar al campo 
siguiente se visualiza la etapa final y se elimina el indicador de 
iongitud. Además, se comprueba que no es nula la clave principal. 


Conclusiones 

Ahora disponemos de un instrumento muy completo que le 
permite una gestión sofisticada de sus datos. Por consiguiente, 
puede comenzar a practicar con la manipulación de los archivos 
que la base de datos personal pone a su disposición (¡si tiene la 
paciencia de teclear las instrucciones!). 
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a creatividad y la invención suelen ser funda- 
/: fhim'l mentales en el perfeccionamiento, tanto estéti- 

Iwa MÍ M C0 como P ráctico > de un programa. 

# Una base de datos, tal como la presentada 
en esta monografía puede estar sujeta pues a 
m mKMm modificaciones, incluso importantes, en la bús- 
queda de un instrumento que permita facilitar el 
propio trabajo o lograr los fines para los que se 
L—_——J utiliza el programa. 

Además de las líneas de programa no indicadas en las diver¬ 
sas figuras, incluimos también una subrutina para la impresión de 
etiquetas y otras pequeñas modificaciones puestas de manifiesto 
en el listado completo del programa. Asimismo se proporciona un 
tercer programa (Chequeo), llamado en el punto 9 del menú de 
la base de datos, concebido para la verificación y control de los 
propios archivos. 

En resumen, se dan algunos ejemplos que reafirman la gran 
flexibilidad y adaptación de este programa para satisfacer las pro¬ 
pias necesidades y que, gracias a la dosis de ingenio que sin duda 
poseen los lectores, les guiarán en la realización de una base de 
datos todavía más “personal". 






Programa principal 


1 PRINT “MAXFILES 3' 

10 GOTO 60000 

ico rem mitimmmmmiiimt 

101 REM m A P P L E I I O 

102 REM 1* 11 

104 REM 11 BASE DE DATOS PERSONAL 11 

105 rem tttmttttttttttmmumt 

600 REM BUSQUEDA BINARIA 

610 F = 0: L = 1: N = NX: LK = LEN (KM*) 

620 IF FI TREN N = 10:IF LK > IA(FI,1) THEN LK = IA(FI,1) 

630 IF N < L THEN RETURN : REM NO ENCONTRADO 

640 P = INT ((L + N) / 2):PRINT R*(XF)¡P:INPUT A!:PRINT DI 

650 IF LEFTt (KM*,LK) < LEFT* (A*,LK) THEN N = P - 1:GOTO 630 

660 IF LEFTt (KM*,LK) > LEFTt (A*,LK) THEN L = P + 1:GOTO 630 

670 F = 1:RETURN: REM ENCONTRADO 

700 REM LECTURA CAMPOS DE BASE DE DATOS 

710 PRINT RÍ!XF)¡P:INPUT IX*:INPUT IXX 

720 PRINT R*(!);IXX:J=0 

800 REM LECTURA DE CAMPOS 

810 FOR 1=1 TO NiJ):INPUT RV*(I,J):NEXT 

820 PRINT D* 

830 RETURN 

900 REM NO ENCONTRADO 
910 IF F THEN RETURN 
920 VTAB 3:HTAB 15:PRINT "NO HAY" 

930 VTAB 8:HTAB 22:60SUB 58000 
940 POP¡RETURN 

1000 REM LECTURA DEL FICHERO SIST.CTRL 
1010 B*<0)="“:B*(1)=",R" 

1020 PRINT 0irSIST.CTRL,S6,Dt" 

1030 PRINT ft1 *"SIST.CTRL": INPUT NC(0),EH 

1040 FOR 1=0 TO 9:INPUT E(I):NEXT :LT=E(0l 

1050 FOR 1=1 TO NC(0):INPUT LB*(I,0),TP(I,0),LL<I,0):NEXT 

1060 FOR 1=0 TO 10 

1070 L=“":INPUT A*,RUI,Sil),D(I):IF R(I) THEN Lí= ",L”=STR*(R(I!) 
1080 O*(I) =01*+A*+L*+",S"«-STR*(S(11)+",D°+STR* (D(I)) 

1090 Rt(I)=R1*+A*+B4+(R(I))0) 

1100 W*(I) =m*+A*+B*(R(¡))0) 

1110 C*(I!=C1*+A4 
1120 NEXT 

1130 PRINT Clt’SIST.CRL" 

1140 RETURN 

1500 REM LECTURA DEL FICHERO BD,CTRL 
1510 PRINT O*(2) 

1520 PRINT R*(2):NX,EA,PL,PT,CN,DF 

1530 FOR 1=1 TO 4:INPUT IA!I,0),IA(I,1),IA(I,2):NEXT 


1570 PRINT Cí(2) 

1580 RETURN 

2000 REM ESCRITURA DEL FICHERO BD.CTRL 
2010 PRINT 0*(2) 

2020 PRINT W*(2)¡PRINT NX\"EA\"PLVPTVCNVDF 
2040 FOR 1=1 TO 4:PRINT IA(1,0)■,"IA(1,1)",“IA(1,2):NEXT 
2070 PRINT C* (2) 

2080 RETURN 

2500 REM INSERCION DEL VECTOR ENTRY EN EL VECTOR INDEX 
2505 VTAB 23.-HTAB 1:PRINT "ORDENACION EN CURSO. ATENCION!" 

2510 I=NX:NX=NX+K:IF EA < NX THEN EA=NX 
2520 FOR K=K TO 1 STEP -1 
2530 FOR 1=1 TO 1 STEP -1 

2535 PRINT R*(0)I: INPUT IX*: INPUT IX7.:PR!NT M*(0) (I+K) 

2540 IF EY*(K) < IX* THEN PRINT !Xt:PRINT IX7.:NEXT 
2550 PRINT EYtsPRINT EYZ(K) 

2560 NEXT K 

2570 PRINT C*(0)¡PRINT 0*(0) 

2580 RETURN 

3100 REM INSERCION DE UNA NUEVA CLAVE EN EL VECTOR ENTRY 
3105 A2=EY7.(K) 

3110 FOR I=K-1 TO 1 STEP -1 

3120 IF EY*(I) > RV*(1,0) THEN EYÍU+l! = EY*(I):EYX(I +1) =EY7.(I):NEXT 
3130 EY*(I+1)=RV*(1,0):EYX(I+!)=AX 
3140 RETURN 

3500 REM BUSQUEDA HACIA ATRAS 
3510 F=D 

3520 FOR P=P TO 1 STEP -1 
3540 GOSUB 3600 

3550 IF KM*=LEFT*(At, LEN,(KM*)) THEN F=1:NEXT 
3560 P=PM 
3570 RETURN 

3600 REM LECTURA DE INDICE EN DISCO 
3610 PRINT R*(XF);P:INPUT At:INPUT A7. 

3620 IF FI THEN IF LEN (KM») > IA(FI, 1) THEN PRINT R*(1)¡A7,:FQR 1=1 TO IA(FI,0): 1 
NPUT A*:NEXT 
3630 PRINT 0* 

3640 RETURN 

3800 REM LECTURA EN DISCO DE LA CLAVE DE ACCESO A PANTALLA 
3B10 P=P+1 

3820 PRINT RÍ(XF);P:INPUT Aí:INPUT A7.:IF NOT FI THEN 3850 
3830 PRINT Rt(l);A*¡INPUT KO* 

3840 IF IA(F!,1) < LL(IA(FI,0)0) THEN FOR HK=2 TO IA(FI,0):INPUT A*:NEXT 
3850 PRINT Dt 
3860 P=P-1 
3870 RETURN 

4000 REM BUSQUEDA POR INDICES 

4010 Bt=”SEL£CCIONAR POR NUMERO";E*="RETURN PARA “ 

4020 GOSUB 600¡GOSUB 900 
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4030 GOSUB 3500:G0SU6 900 

4040 IF (P=EM) OR (FI AND P=IV) THEN RETURN 

4050 1=1¡GOSUB 3800 

4070 !F KMÍO LEFTt (At,LEN(KM$!) THEN RETURN 

4080 J=NX:IF F! THEN 3=IV 

4090 PRINT 

4100 FOR 1=0 TO J-P 

4110 GOSUB 3800 

4120 IF KNÍOLEFT$(AÍ,LEN(KM$)) THEN GOSUB 4300 
4130 PRINT SPC(3-LEN(STRÍ(1+1)));1+1" "A*; 

4134 IF FI THEN HTAB (39-LL(1,0)¡PRINT 1 "K0*¡ 

4136 PRINT 

4140 IF I=INT (1/17)117 AND I THEN GOSUB 4400 
4150 NEXT 

4160 GOSUB 4300:RETURN 
4300 REM SELECCION FINAL 
4310 VTAB 22:PRINT B* 

4320 PRINT Eí¡¡INPUT "SALIR"jA$:A2=VAL(A$) 

4330 IF NOT AX THEN F=0:G0T0 4360 

4340 IF AX<1 OR AX>I THEN 4310 

4350 P=P+AM 

4360 POP:RETURN 

4400 REM SELECCION MEDIA 

4410 VTAB 22:PRINT B* 

4420 PRINT E$¡: INPUT "CONTINUAR”¡A4:AX=VAL(AÍ) 

4430 IF NOT AX THEN VTAB 3-.CALL -958:RETURN 
4440 IF AX<1 OR AX)I+1 THEN 4410 
4450 P=P+AX-1 
4460 POP:RETURN 

9000 REM BUSQUEDA VARIACIONES DE LOS CAMPOS INDICES 
9010 FOR 1=1 TO 4 

9020 IF IA(1,0) THEN IF RVi(IA(1,0),0) O RB$(IA(I,0),0) THEN IA(I,2)=0 
9030 NEXT 
9040 RETURN 

10000 REM LECTURA DEL FICHERO LINK CTRL (CONTROL CADENA) 

10010 PRINT 0K3) 

10020 PRINT R$(3)¡INPUT NC(1) 

10030 FOR 1=1 TO NC(1) 

10040 INPUT LBid, 1) ,TP(1,1) ,LL(1,1) 

10050 NEXT 
10060 PRINT C4<3) 

10070 FOR ¡=4 TO 6-.PRINT 0*11) :NEXT 
10080 PRINT Rí(4 )¡OíINPUT DL 
10090 PRINT RJ(5);0:INPUT IL 
10100 PRINT RK5); INPUT IL 
10110 PRINT Dt 
10120 RETURN 

10500 REM LECTURA INDICES 
10550 PRINT Oí(0) 



10560 PRINT Oíd) 

10570 RETURN 

15000 REM ENTRADA DE LOS CAMPOS 
15010 FM=0:FCR 1=1 TO NC(J) 

15020 VTAB(2+J*3+I)¡PRINT SPC(9-LEN(LBÍK(I,3)));LBÍ(I,J); 

15050 GOSUB 15420 
15060 NEXT 

15065 IF NOT (CM OR FM)THEN 15110 
15070 IF CM=1 THEN RETURN 

15080 VTAB (4+JJ3+NCIJ)):HTAB 20:PRINT Mí;:6ET AÍ:PRINT 
15100 ¡F AtO“S” THEN RETURN 
15110 FM=1;SL(J)=l 

15120 FOR 1=1 TO NC(J):IF J=0 AND CM=2 AND 1=1 THEN 1=2 
15130 VTAB(3+JÍ3+I):HTAB 11:CALL -B68:PR!NT LEFTl(Tlí,LL(I,J)) 

15140 GOSUB 15400 

15150 VTAB(2+JI3+I):HTAB 11:INPUT "";Aí 
15160 IF A4=”“ THEN 15200 

15170 IF TP(I,J)=2 THEN RVi(I,J)=LEFTí(STRÍ(VAL(Aí)),LL(I,J)) 

151B0 IF TP(I,J)=1 THEN RVÍ!I,J)=LEFTí(Aí,LL(I,J)) 

15190 IF AíORVíd,J) THEN PRINT CHRí(7>¡GOTO 15140 
15200 GOSUB 15400 

15210 VTAB (I+J13+I):HTA8 l1:CALL -868 

15215 IF RVÍ(1,0)="* THEN 15120 

15220 NEXT 

15230 GOTO 15065 

15400 REM VISUAL1ZACI0N 

15410 VTAB(2+J«3+I):HTAB 10:CALL -868 

15420 PjilNT SPC(1 + (LL(I,J)-LEN(RVÍ(I,J)))t(TP(I,J) =2));RVÍ<I,J) 

15430 RETURN 

20000 REM INSERCION DEL REGISTRO EN EL ARCHIVO BASE 

20010 IF NX=EM THEN GOSUB 59000:RETURN 

20020 FOR 1=1 TO 4:IA(1,2)=0:NEXT 

20050 GOSUB 24000 

20060 K=1 

20070 CH=0:J=0 

20080 HOME:HTAB 15:PRINT "INSERCION" 

20090 FOR 1=1 TO NC(0):RVÍ(I,0)="":NEXT 
20120 60SUB 15000 
20150 PRINT Nt(l!;EYX(K) 

20160 FOR 1= 1 TO NC(O)¡PRINT RVÍ(I,0):NEXT 
20170 PRINT D$ 

20200 GOSUB 3100 

20210 VTAB 23:CALL -B68:PRINT ‘OTROS REGISTROS?”;:GET A$:PRINT ¡IF A$="N" THEN 2 
0260 

20230 IF NX+K=EM THEN GOSUB 59000:GOTO 20260 

20240 IF K=25 THEN GOSUB 2500:GOSUB 2000:GOSUB 24000:K=0 

20250 K=K+1:G0T0 20080 

20260 GOSUB 2500:GOSUB 2000 

20270 PRINT C$(l) ¡PRINT Oíd) 
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20280 RETURN 

24000 REM INICIAL!ZñCION ENTRADA 
24005 EY*(0)="* 

24010 EUR 1=1 Tü 25 
24020 EY$(I!=FR$;EYX!I)=NX+I 

24030 IF EA >= NX+I THEN PRINT R$(0! (NX+I):INPUT AísINPUT EYX(I):PRINT D$ 

24040 RA=Dl:DL=RO 

24050 RETURN 

25000 REM ELIMINACION 

25010 IF F! THEN PRINT C$(XF):F¡=0 

25020 C=0 

25030 FOR !=o , u .„:EY*(I)=FPí:EYX(I)=0:NEXT 

25040 CA=1:GQSUB 30000 

25050 IF KM$="" THEN 25200 

25060 CM=1:J=0:HOME:605UB 15000 

25070 VTAB 22:INPUT "LO CONFIRMA? ”;B$ 

25080 IF B$<> ”S" THEN 25040 
25090 GOSUB 26000 

25100 IF C=19 THEN G03UB 255Ü0:G0T0 25020 
25130 GOTO 25040 
25200 GOSUB 25500 
25210 PRINT Cí(0) 

25230 PRINT 0*10) 

25240 IF FL THEN FOR 1=4 TO 6:PRINT C$111¡PRINT 0$(I):NEXT 
25280 EY$ <0):CA=0 
25290 RETURN 

25500 REM ELIMINACION FISICA 
25505 IF NOT C THEN RETURN 

25510 HOME:HTAB ÍO'.PRINT 'REGISTRO EN ELIMINACION':PRINT 
25520 FOR 1=0 TO C-1:PRINT EYt(I):NEXT 
25530 PRINT r.'NPUT 'LO CONFIRMA? ";A$ 

25540 IF A$<>"S" THEN RETURN 
25560 FOR 1=0 TO C-l 
25570 N=EY7.11) 

25580 IF FL THEN GOSUB 29000 
25590 NEXT 
25600 GOSUB 26250 
25620 GOSUB 2000 
25630 RETURN 

26000 REM INSERCION DEL REGISTRO ELIMINADO EN EL VECTOR ENTRY 

26010 FOR 1=0 TO C 

26020 IF EYÍCI) < IX* THEN NEXT 

26030 IF EYX(I) = IXX THEN RETURN 

26040 FOR N=!8 TO I STEP -1 

26050 EY$(N+1)=EY$(N):EYX¡N+!)=EYX(N) 

26060 NEXT. 

26070 EY$(I)=IXX;EY7.(I!=IX7. 

26080 C=C+I:RETURN 

26250 REM COMPACTACION INDICES ANTIGUOS íACTUALIZACION DEL INDICE) 
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26255 PRINT ¡PRINT “COMPACTACION: FLASH:PRINT 'ATENCION"¡NORMAL 

26260 K=0:KN$=EY(0)¡GOSUB 600:b0SUB 3500 

26270 PRINT Rt!0)I:INPUT ¡Xt:INPUT ¡XX 

26280 IF IXX=EYX(K) THEN K=K+I:GOTO 26300 

26290 PRINT N$(0)(I-K):PRINT 1X$:PRINT ¡XX 

26300 NEXT 

26310 r 0R I=EA-K+! TO EA:PRINT H$(0)I:PRINT FRt:PRINT EYX(I-EA+K-1):NEXT 
26320 NX=NX-C:FOR 1=1 TO 4:IA(I,2)=0:NEXT 
26330 RETURN 

29000 REM ELIMINACION EN CADENA 

29010 PRINT R$(4)¡N:INPUT RO 

29030 IF NOT RO THEN PRINT D$:RETURN 

29035 SLtl)=i¡IF DF THEN DF=0:GCSUB 2000 

29045 PRINT W$(4);N¡PRINT O 

29050 PRINT Hi(4);Q:PRINT DL 

29070 IF (NOT RA) THEN PRINT Di: RETURN 

29080 PRINT R$(5)¡RO:INPUT A 

29100 IF AOO THEN RO=A:GOTO 29080 

29110 PRINT Wí(5);RO:PRINT RAsPRINT D$ 

29120 RETURN 

30000 REI* BUSQUEDA Y MODIFICACION 
30010 HOME 

30020 PRINT LB$(14(FI)0)I(IA(FI,0);:INPUT ': "¡KM$ 

30030 IF KM$="' AND (NOT CA) THEN 30250 
30035 IF KM$=" AND (CA) THEN RETURN 
30040 GOSUB 4000:IF NOT F THEN 30000 
30060 GOSUB 700 

30100 FOR 1=1 TO NC(JI:RBi(I,J):NEXT 
30110 IF (CA! THEN RETURN 
30120 CM=2-FL:HOME:GOSUB 15000 
30140 IF NCT FM THEN 30210 
30150 GOSUB 9000 
30160 PRINT W$(1);IXX 

30170 FOR 1=1 TO NC(0):PRINT RV$(I,0):NEXT ¡PRINT 0$ 

30210 IF FL THEN N=IXX:GOSUB 35000 
30220 GOTO 30000 

30250 IF SL(O) THEN PRINT C$(l)¡PRINT 0$(1):GOSUB 2000 
30270 IF SL(1) THEN FOR 1=4 TO 6:PRINT Cid)¡PRINT 0$(I):NEXT 
30290 RETURN 

35000 REM GESTION DE LAS CADENAS 

35010 VTAB 19:CALL -958:PRINT ' 1- INSERCION EN CADENA' 

35020 PRINT." 2- EXPLORACION Y ELIMINACION" 

35025 PRINT “ 3- ELIMINACIN CADENA" 

35030 INPUT "(RETURN PARA SALIR) ";A$ 

35040 ¡F A$=“" THEN RETURN 

35050 ON VAL(A$) GOSUB 36000,37000,29000 

35060.GOTO 35000 

36000 REM INSERCION DEL REGISTRO EN CADENA 

36010 IF DF THEN PRINT “DISCO LLENO";¡GOSUB 59000:RETURN 
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36020 0NERR GOTO 38100 
36030 VTAB 5: CALI -958 

36040 J=1:CM=0:F0R 1=1 TQ NC(1):RV*<I,1)="’:NEXT :60SUB 15000 
36050 X=DL:IF NOT X TREN X=IL 
36060 PRINT M*(6);X 

36070 FOR !=! TO NC<!):PRINT RVtd, 1):NEXT 

36080 IF NOT DL THEN 36140 

36090 PRINT RS(51¡X:INPUT DL 

36110 PRINT M(4) jOiPRINT DL 

36130 SOTO 36170 

36140 IL=IL+1 

36150 PRINT Ut(5);0:PRINT IL 
36170 PRINT RS(4);N:INPUT A 
36185 ONERR GOTO 38000 
36190 PRINT W$(5);X:PRINT A 
36210 PRINT W*(4);N:PRINT X 
36230 PRINT DÍ:POKE 216,0 
36240 RETURN 

37000 REM EXPLORACION DE LA CADENA DE REGISTROS CON POSIBILIDAD DE ELIMINACION 
37010 RD=O:FD=0 
37020 PRINT RS(4);N 
37030 ¡N»UT RA:PRINT D$ 

37040 IF(NOT RA) THEN VTAB 22:CALL -?58:PRINT 'FIN '¡GOTO 58000 

37050 PRINT R$(6);RA 

37060 J=1:G0SU8 800 

37090 CM=2:V T AS 5:CALL -958 

37100 GOSUB 15000 

37110 IF NOT FM THEN 37140 

37120 PRINT NS(6);RA 

37130 FOR 1=1 TO NC(1):PRINT RVt(I,1):NEXT 

37140 PRINT D4:VTAB 20:CALL -958:PRINT ’EIXIT D)EL." 

37150 PRINT “(RETURN PARA CONTINUAR):GET A$:PRINT 

37160 IF A$='E" THEN RETURN 

37170 IF AS=’D" AND NOT FD THEN 37250 

37180 IF ASO CRS THEN 37140 

37190 RD=RA:FD=0 

37200 PRINT R$(5)¡R0 

3/210 bUlU 3/030 

37250 REM ELIMINACION CADENA 

37260 FD=1:SL(1)=1 

37270 IF DF THEN DF=0:GOSUB 2000 

37280 PRINT R$(5>;RA:INPUT A 

37290 IF NOT RD THEN 37310 

37300 PRINT W$(5);RO:GOTO 37320 

37310 PRINT «(4);N 

37320 PRINT A 

37330 PRINT W$(5);RA 

37340 PRINT DL 

37350 DL=RA 


37360 PRINT W$!4);0 
37370 PRINT DL 

37380 VTAB 5:CALL -958:RA=R0 

37390 PRINT DS 

37400 IF RD THEN 37040 

37410 RETURN 

38000 REM DISCO LLENO 

38010 IL=IL-1 

38020 PRINT OS(5) 

38030 PRINT WS(5)¡0:PRINT IL 
38040 PRINT C$(5) 

38100 HOMEiHTAB 15:PRINT “DISCO LLENO“:PRINT ¡GOSUB 58000 

38140 DF=1 ¡GOSUB 2000 

38150 POKE 216,0 

38160 RUN 

40000 REM LISTADO 

40010 HOME:VTAB 9:HTAB 9:PRINT MÍ-.GET AS 

40030 IF A$="S“ THEN GOSUB 47000:GOTO 40000 

40040 HOME:VTAB 9:HTAB 9:PR!NT “IMPRESION^ "¡: 6ET A$:PRINT ¡HOME 

40050 CL=40:S=0:IF AS”S" THEN CL=CN:S=1 

40060 GOSUB 49800 

40100 NP=l+(FI>0)*(Ifl(FI,0)-l) 

40110 P=1:KH$=MIS(NP,0):IF KMS<>“” THEN GOSUB 600:IF F THEN GOSUB 3500 
40120 SL=P 

40140 KMS=(NP,0)¡GOSUB 600:IF F THEN GOSUB 3500 
40150 EL=P:NP=1 

40200 IF S THEN PRINT DS“PRM1":IF NOT PT THEN PRINT CI¡CN;"N" 

40300 FOR P=SL TO EL:IF PEEK<-16384)=155 THEN P=EL:A$=ECS:GOTO 40370 

40310 GOSUB 700:IF SL(J) THEN GOSUB 42500:IF NOT SE THEN 40370 

40315 IF SC AND FL THEN GOSUB 40900:IF NOT SE THEN 40370 

40320 GOSUB 41000 

40330 GOSUB 43000 

40340 GOSUB 42000 

40350 GOSUB 41500 

40360 IF FL THEN GOSUB 40600 

40370 NEXT 

40400 IF NOT (VX(0,0) OR VX(0,1) THEN 40500 
40410 IF FL THEN T(0!=1:G0SUB 42800:L=1 
40420 IF T(0) THEN HOME 
40430 IF NP THEN L=t 

40450 J=0:GOSUB 43500:J=1:OFR 1=1 TO NC(J)+:TT(I,J)=TTí1,2):NEXT 
40460 IF VX(O,1) AND FL THEN GOSUB 41500:T(J) =1 :HOME:GOSUB 43500 
40500 GOSUB 42800 

40510 PRINT DS'PRHO":IF ASOECS AND NOT S THEN VTAB 23:G0SUB 58000 

40520 POKE -1638,0 

40530 RETURN 

40600 REM LISTADO CADENA 

40610 J=1:PRINT R$(4);IX7.:INPUT K:IF NOT K THEN RETURN 
40620 SE=1:PRINT Rt(6);K:GOSUB 800:IF SL!J) THEN GOSUB 42500 
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40625 IF SE AND NP THEN 40700 

40626 IF SE THEN NP=t:CN 2*S+T(J)+I BOSLB 41300,41400,42300,42900:GOTO 40710 
40630 PRINT R*(5);K:INPUT K:PRINT Dt:IF PEEK (-16384) O 155 ANO K THEN 40620 
40640 RETURN 

40700 SDSUB 41000 
40710 60SUB 43000 
40720 GOSUB 42000 

40730 GOSUB 41500:IF P>EL THEN 40800 

40740 PRINT R$(5)¡K:INPUT K:PRIMT D$:!F NOT K THEN 40800 

40745 IF PEEK(-16384)=155 THEN At=EC$:G0T0 40800 

40750 PRINT Rt(6);K:GOSUB 800:IF SL(J> THEN GOSUB 42500i.IF NOT SE THEN 40740 
40760 GOTO 40700 

40800 GOSUB 41000:G0SUB 43500:IF (NOT T(l)> AND (AtOECt) AND (NOT S) THEN GOSUB 
42700 

40810 GOSUB 42800:NP=1:L=1 

40820 RETURN 

40900 REM PRESELECCION 

40910 SE=0:PRINT R*(4) 1X2: INPUT K:PRINT Dt:IF NOT K THEN RETURN 

40920 IF NOT SL(1) THEN SE=1:RETURN 

40930 J=1:SE=1:PRINT R*(6);K:GOSUB 800:G0SUB 42500 

40940 IF SE THEN J=0:RETURN 

40950 PRINT R$(5) jK: INPUT K:PRINT D$: IF PEEK(-16.33)0155 AND K THEN 40930 
40960 SE=0:J=0 

40999 RETURN 

41000 REM CABECERA 

41010 OH 4*J+2»S+T(J) GOTO 41200,41100.41200,41300,41400.41100,41200 
41100 REM DB-V-0 

41110 IF NP THEN HOME:L=1:60SUB 42300 

41120 RETURN 

41200 REM DB-V-V 

41210 IF NP THEN 1=1 

41220 HOME¡GOSUB 42900:RETURN 

41300 REM CADENA-V-0 

41310 IF NP THEN VTAB 5:CALl -958:L=5:SOSUB 42300 

41.320 RETURN 

41400 REM CADENA-V-V 

41410 VTAB 5:CALL -958:G0S'JB 42900:L=6:RETURN 

41500 REM FIN DE PAGINA 

41510 NP=0:IF L=1 THEN RETURN 

41520 Rft=20+(LP-25-<NC(J)+0Z(0,J))*T(J)*S 

41530 ON 4tJ+2*S+TÍJ) GOTO 41610,41700,41700,41600,41610.41700.41700 

41600 IF RA>L THEN RETURN 

41610 GOSUB 42700:NP=1:RETURN 

41700 IF RAÍL THEN GOSUB 42800:NP=1 

417IC RETURN 

42000 REM SÜBLISTADO 

42010 ON T(J)+1 GOSUB 42100,42200 

42020 IF PEEKi-16384)=155 THEN P=EL+1:GET At 

42030 B4=‘“:IF T(Jt THEN B$=“" 
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42040 PRINT BÍ:L=L+1 

42090 RETURN 

42100 REM HORIZONTAL 

42110 PRINT SPC<(CL-L7(0,J))/2)j 

42120 FOR 1=1 TO NC(J) +07(0,J¡: IF 7(1,J) THEN NEXT: RETURN 
42130 C=LX(I,J> - LEN (RVt(I,J>) 

42140 A=(I)1): IF TP(I,J)=2 THEN A=A +C:C=0 
42150 PRINT SPC(A) RV$(I,J)SPC(C); 

42160 NEXT 
42170 RETURN 
42200 REM VERTICAL 
42210 VTAB 3+3IJ 

42220 FOR 1 = 1 TO NC(J! + 0710,J): IF 17.(1,J) THEN NEXT: RETURN 
42240 PRINT SPC(9-LEN(LB$(I,J)>);LB*(I,J); 

42250 PRINT SPC< 1 +(24-LEN <RV*(I,J»)I(TP(I,J) = 2))¡RVt(I,J) 

42260 L=L+1 
42270 NEXT 
42280 RETURN 
42300 REM CABECERA 

42310 FOR 1=1 TO NC(J)+1:RB*(I,J)=RV$(I,J):RV*(I,J) = RB4(I,J): NEXT 

42340 RETURN 

42500 REM SELECCION 

42510 St=Ú: FOR ¡=1 TO NC(J) 

42520 IF TP(I,J) = 1 THEN IF RV*(I,JXMIÍ(I,J) OR RV$(I,J)> MAt(I,J) THEN RETURN 

42530 IF TP(I,J) = 2 THEN A=VAL !RVt(I,J)>: C=VAL(MA*(I,J)):IF ACVAL(MI*(I,J)) 

OR A>C*lEt37J(NOT C 1) THEN RETURN 

42540 NEXT : SE = 1 

42550 RETURN 

42700 REM ESPERA TECLADO 

42710 IF A O ECt THEN VTAB 23: PRINT 'ESC O RET’ GET Aí: PRINT: VTAB 20 
42720 IF Aí = ECt THEN P=EL+1 
42730 RETURN 

42300 REM AVANCE DE PAPEL 
42810 REM 
42820 REM 

42900 REM AVANCE DE LINEA 
42910 PRINT "”:L=L+1 
42930 RETURN 
43000 REM CALO 

43010 IF 0$(0,J) THEN A=0: FOR 1=1 TO NC(J): A=A+VALIRV$(I,J))t07(I,J): NEXT:RV* 
(1,3) = STRt(A) 

43020 IF V7(0,3! THEN FOR 1=1 TO NC(J)+0X(O,J):TT(I,J)=TT(I,J)+VAL(RV$(I,J))*VX 

(I,J):NEXT 

43030 RETURN 

43500 REM LISTADO TOTAL 

43505 IF NOT V7.(0,J) THEN RETURN 

43507 FOR 1=1 TO NC(J)♦!:RVÍ<I,J)="":IF V7(I,J) THEN RV$(l,J)=LEFTJ(Tlt,L7(I,J>) 
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43508 NEXT : IF NOT T(J) THEN 60SU8 42000 

43510 FOR 1=1 TO NC(J)+1 

43520 IF V7.(I,JI THEN RVÍ(I,J) =STR*<TT(I,J)) 

43530 NEXT 
43540 60SUB 42000 

43550 IF J THEN FOR 1=1 TO NC( J)+1 : TT(I, 2) = TT(I,2) + TT(I,J): TT(I,J) = 0: NEX 
T 

43560 RETURN 

44000 REM CRITERIO ENTRADA 
44010 FOR I = 1 TO NC(J) 

44020 VTAB 4+1: HTAB 13:GET Ai 

44030 IF A1=EC! THEN IX(I,J)=l: CALL -868:V7(I,J) 1=0: 07.<I,J)=0: 60T0 44120 
44040 IF AÍOCRl THEN IX(I,J]=0: PRINT "X"; 

44060 HTAB 23: GET A» 

44070 IF Al=ECí THEN VK(I,3)=0: PRINT BOTO 44090 
44080 IF AlOCRÍ THEN V7.(I,J) = 1: PRINT “X"; 

44090 HTAB 34 : 6ET Al 

44100 IF Al=ECl THEN Oí (I,J) = 0: PRINT ;: 60T0 44120 
44110 IF A» O CR* THEN 01(I,J) = 1: PRINT "X"; 

44120 NEXT : PRINT 
44130 RETURN 

45000 REM CRITERIOS LISTA VISUALIZACION 
45010 HOME : PRINT SPC(IB);"FORMATO" 

45030 PRINT ¡HTAB 20 : PRINT LBKNM.J) SPCI5) LBKNM, J) 

45040 HTAB 11 ; PRINT “LISTADO VERTICAL HORIZONTAL " 

45045 60SUB 49000 

45050 FOR 1=1 TO NC(J); IF mi,J) THEN 45090 
45060 VTAB 4+1: HTAB 13: PRINT "X"; 

45070 IF VZ(I,J) THEN HTAB 23: PRINT "X“¡ 

45080 IF 07.(1,J) THEN HTAB 34: PRINT "X"¡ 

45090 NEXT : PRINT 
45100 RETURN 

46000 REM CRITERIOS SELECCION ENTRADA 
46010 FOR I = 1 TO NC(J) 

46020 VTAB 4 ♦ I : HTAB 11 : GET Aí 

46030 IF A* = ECi THEN NI1(I,J) = ": PRINT SPCI15): GOTO 46060 
46040 IF Al<> CRí THEN PRINT A$;:INPUT "";B$:MI *(I,J)=A*+B* 

46060 VATB 4+I:HTAB 25:PRINT "";:GET A» 

46070 IF Ai=FÍ THEN MA*<I,J)=FR*:CALL -868:6OT0 46100 

46080 IF AlOCRÍ THEN PRINT A*;:INPUT ”;Bí:MAí(I,J)=Aí+Bf+Ffil 

46090 IF TP(I,J)=1 THEN IF MI4(I,J)>MA$CI,J) THEN 46020 

46095 IF TP(I,J)=2 THEN IF VAL(MI*<1,J>)>VAL(MAt(I,J) THEN 46020 

46100 NEXT 

46110 RETURN 

47000 REM SELECCION PRINCIPAL 

47005 SC=0 

47010 FOR S=1 TO 2 

47020 FOR J=0 TO FL 

47030 ON S GOSUB 48000,45000 


47040 VTAB 21:HTABE 20:PRINT MÍ;:GET Aí 
47050 IF AÍ=“S“ THEN ON SGOSUB 46000,44000!¡GOTO 47030 
47060 IF AíO”N" THEN 47040 
47062 IF NOT J AND S=1 AND FL THEN VTAB 23:HTAB 4-.PRINT "SOLAMENTE LOS REGISTROS 
CON CADENA? ";:GET Aí:PRINT 
47064 IF AK>"N" AND AÍO“S" THEN 47062 
47066 IF AÍ=“S“ THEN SC=1 
47070 NEXT J,S 
47080 RETURN 

48000 REM VISUALIZACION SELECCIONADA 
48010 HOME:PRINT SPCI20)"SELECCION" 

48015 HTAB 17:PR1NT ”DE"SPC(14)"A“ 

48020 GOSUB 49000 
48030 FOR I=-l TO NC(J) 

48040 VTAB 4+I:HATB 11:IF MU(I,J)<>“" THEN PRINT MIÍ(I,3) 

48060 VTAB 4+I:HATB 26:IF MAÍII.JIOFRÍ THEN PRINT MAKI.J) 

48080 NEXT 
48090 RETURN 

49000 REM VISUALIZACION CAMPOS 

49010 VTAB 4+1:PRINT SPC(9-LEN(LB*(I,J))ILBíU,J) 

49020 NEXT ¡VTAB 4+I:PRINT SPC(9-LEN(LB*(I,J)I)LBÍ(I,J> 

49030 NEXT 
49040 RETURN 

49800 REM INICIALIZACION LISTA VARIABLE 

49810 FOR J=0 TO FL:SL(J) =0:A=0: V7. (O,J) =0:07.(O,J) =0 

49820 FOR 1=1 TO NC(J> 

49830 IF HIi(I,J)<>" OR MAÍ(I,JIOFRí THEN SL(J)=1 
49840 IF 17(1,J) THEN 49890 

49850 LX(I,J)=LL(I,J)<LEN(LBÍ(I,J)) THEN L7(I,J)=LEN(LBÍ(I,3 )) 

49860 A=A+L7(I,3)+1 
49870 IF V7(I,3) THEN V7.(0,J) = 1 
49880 IF 07(1,3) THEN 07(1,J)=l 
49890 NEXT 

49900 LBKI,J)=*T0TAL‘:TP(I,J)=2¡LLII,J)=10 

49910 L7.(I,3)=LL(I,0):L7.(0,3)=A+(1+L7(I,3))»07.(0,3):V7.(I,3)=V7(0,J) 

49915 T(J)=(CL<L7(O,J>) 

49920 NEXT :IF FL AND NOT S THEN T(0)=1 

49930 NC(2) =NC(1):FOR J=0 TO FU2:F0R 1=1 TO NC(J)+1:TT(I,J)=0:NEXT I,J 
49950 RETURN 
50000 REM ETIQUETAS 

50010 E=0:F0R 1=1 TO 4:IF E(I> THEN E=E+1 
50020 NEXT ¡HOME:VTAB 9:3=0 

50040 IF E<3 THEN PRINT "DEFINIR FORMATO ETIQUETA":FOR 1=1 TO 999-.NEXT ¡RETURN 
50045 PRINT "MODIFICACION DEL TIPO DE SELECCION? ";:6ET Ai 
50050 IF A!="S” THEN 60SUB 50900:G0T0 5000 

50060 PRINT ¡PRINT ¡PRINT "IMPRESION ETIQUETAS INDIVIDUALES? “;:GET Ai 
50070 OL=INT(CN/EI7)):IF A1="S“ THEN 0L=1 
50080 PRINT ¡PRINT ¡PRINT "IMPRESORA PREPARADA 1 ’ ";:6ET Aí:F'RINT 
50090 IF Al="N" THEN RETURN 
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50100 S=1":CL=CN:60SUB 4980Ci:H0ME 
50110 NP=1+(FI>0)*<IA(FI,0)-1) 

50120 P=1:Kf1$=MI*(NP,01: IF KMÍO"" THEN GOSUB 600: IF F THEN GOSUB 3500 
50130 SL=P 

50140 KM$=MA$(NP,0):GOSUB 600:IF F THEN GOSUB 3500 
50150 EL=P:NP=1:E=0 

50200 PRINT DÍ*PRI1":IF NOT PT THEN PRINT CIÍ;CN"N" 

50300 60SUB 700:IF SL(J) THEN GOSUB 42500 :IF NOT SE THEN 50400 
50320 E=E+1:RV$ <0,0)=“" 

50330 FOR fl=l TO 4:EU(A,E)=LEFT$(RV*(E(A),),E!7)-E(9)):NEXT 
50340 ET$(4,E)=LEFTt(ETt(4,E),5)+""+LEFT*(RV*(E!A),0),E(7)-E(9)-6) 

50350 IF E=OL THEN GOSUB 50700 
50400 NEXT 
50410 GOSUB 50700 
50420 PRINT S$"PR»0” 

50490 RETURN 

50700 REM IMPRESION 

50710 IF NOT E THEN RETURN 

50720 L=LP-E(8):ON (E(8I GOSUB 42900,42800 

50730 FOR A=1 TO 4:FOR B=1 TO E 

50750 PRINT SPC(E(9))ET*<A,B);:IF B<E THEN PRINT SPC(E(7)-E(9)-LEN(ET*(A,B))); 
50760 NEXT ¡PRINT :NEXT 

50770 IF E(6) >E(8)+4 THEN L=LP-E(6)*E(8>+4:ON ((E(6)-E(8)-4)>1)+1 GOSUB 42900,4 
2 B00 

50780 E=0:RETURN 
50900 REM SEL 
50910 GOSUB 48000 

50920 VTftB 21:HTAB 20:PRINT MipGET A« 

50930 IF AÍ="S" THEN GOSUB 46000:GOTO 50910 
50940 IF A$<>"N" THEN 50920 
50950 RETURN 

51000 REM CAMBIO DE INDICE 
51010 IF FJ THEN PRINT CtlFI+6) 

51030 HOME:HTAB 15:PRINT "INDICES POSIBLES"¡PRINT ¡PRINT "O ";LBI(1,0) 

51040 FOR 1=1 TO 4 

51050 IF NOT IA(1,0) THEN 51080 

51060 PRINT 1“ ";LB$(IA(I,O),0);:IF NOT IA(I,2) THEN HTAB 20:PRINT ■NO"; 

51070 HTAB 24:PRINT "ACTUALIZADO" 

51080 NEXT 

51090 VTAB 10:INPUT “CUAL? ";A$:AX=VAL(A») 

51100 IF NOT A7. THEN FI=0: XF=FI:RETURN 
51110 IF AX >4 OR IA(AZ,0)=0 THEN 51090 
51120 FI=A7.:XF=FI*6 
51130 PRINT OtIXF) 

51140 PRINT Ri;0:INPUT IV:PRINT Di 
51170 RETURN 

52000 REM GESTION DE INDICADORES DE ESTADO DE LAS CADENAS 
52010 IF PL AND FL THEN FOR 1=4 TO 6:PRINT CiühNEXT 
52020 IF PL THEN FL=NOT FL 
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52030 IF FL THEN GOSUB 10000 
52040 RETURN 
58000 REM ESPERA TECLADO 
58010 INPUT "PULSE RETURN ";A$ 

58020 RETURN 
59000 REM OVERFLOW BD 

59010 HOME-.PRINT “NO HAY LUGAR PARA OTROS REGISTROS" 

59020 GOSUB 58000 
59030 RETURN 

60000 REM PRUEBA PRIMERA VEZ (DEFINICIONES DE LA ASIGNACION DE LA BASE DE DATOS) 

60010 GOSUB 62000 
60020 DNERR GOTO 60400 
60030 GOSUB 1000 
60040 GOSUB 1500 
60050 POKE 216,0 
60070 GOSUB 10500 
60100 REM MENU PRINCIPAL 
60105 TEXT 

60110 HOME:HTAB 11:PRINT "BASE DE DATOS PERSONAL" 

60120 VTAB 3:PRINT "REGISTROS PRESENTES EN ARCHIVO";NX 
60130 PRINT "MAXIMOS REGISTROS POSIBLES EM 
60140 VTAB 6:HTAB 10:PRINT “FASES DE ACTIVIDAD:" 

60150 VTAB BiPRINT " 1- INSERCION" 

60160 PRINT " 2- ELIMINACION" 

60170 PRINT “ 3- BUSQUEDA Y/O MODIFICACION" 

60180 PRINT " 4- LISTADO" 

60190 PRINT " 5- ETIQUETA" 

60200 PRINT " 6- CAMBIO DE INDICE" 

60210 PRINT " 7-'¡:IF FL THEN PRINT “DES" 

60215 PRINT " HABILITACION CADENAS" 

60220 PRINT " 8- RECONFIGURACION DEL SISTEMA” 

60230 PRINT " 9- VERIFICACION ARCHIVO" 

60290 PRINT "10- FIN" 

60295 VTAB 23: HTAB 10:PRINT "D !. V PRODUCTION" 

60300 VTAB 19:HTAB 10:PRINT “CUAL? “;A$:I=VAL(A$) 

60320 IF (I>1 AND I<6) AND NOT NX THEN 60100 

60330 ON I GOSUB 20000,25000,30000,40000,50000,51000,52000,60400,60450,60500 

60340 SL(0)=0:SL(1)=0:GOTO 60100 

60400 REM LANZAMIENTO PROGRAMA DE CONFIGURACION DEL SISTEMA 

60410 PRINT Df'EJECUCION DE PROGRAMA DE CONFIGURACION DEL SISTEMA" 

60450 PRINT Df'EJECUCION DEL PROGRAMA DE CHEQUEO” 

60500 REM FINAL DEL PROGRAMA" 

60510 PRINT CU 

60520 PRINT Dl’LOCK LOGO,DI" 

60530 PRINT Df'MAXFILES 3“ 

60540 HQME:PRINT "I ADIOS !" 

60550 END 

62000 REM INICIALIZACION VARIABLES 
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62010 I=0:T1$="-":F0R J=I T0 4:T1«=T1*+T1*:NEXT 
62020 DÍ=CHR$(4):FR$=CHR$(95) 

62030 NM=15 

62040 DIM LBÍ(NM, 1),TP(NM, 1),LL(NM,1),RBí(MM,1),RV$(NM,1),EY$(25),EYX(25> 
62050 01*=Dt+‘ , QPEN“:Rlt=D*+“REftD , :m*=D*+"WRITE":Cl*=D*+"CL0SE“ 

62060 DIM 1),MAÍ(NM,1) 

62070 FOR 1=1 TO NM:FOR J=0 10 1:MA$(I,J)=FRÍ:LB*INM,JJ="TOTAL':NEXT J,I 
62080 DIM I'/.INM, 1) ,L7.(NM, 1) ,VZ(NM, 1) ,07.(NM,1),TT(NM,2),T(2),SL(1) 

62090 CRÍ=CHRt(13):ECÍ=CHRÍ(27):CIi=(9) 

62100 M$=“MQDIFICACIONES? ” 

62200 RETURN 


Programa de configuración (SETUP) 


1 rem ttmmtmnmummt 

2 REM í APPLE II í 

3 REM » t 

4 REM t BASE DE DATOS PERSONAL i 

5 rem ttmtmutmntnumt 
10 SOTO 60000 

500 REM HEAPSORT 

505 FOR L=0 TO NXíPI%(L)=LsNEXT 

510 IF NX=1 THEN RETURN 

515 L=INT(NX/2)+l:R=NX 

520 IF L>1 THEN L=L-1:PA=PIX(L):GOTO 540 

525 PA=PIX(R):PIX(R)=PIZ(1):R=R-1 

530 IF R=1 THEN FIZ(1)=PA:RETURN 

540 J=L 

545 I=J:J=2*J 

550 IF J>R THEN PIX(I)=PA:GOTO 520 
555 IF J<R THEN GOSUB 600 

560 IF IXÍ(PA) < IX*(PIX(J)I THEN PIX(I)=PIX(J)¡GOTO 545 
565 PI%(I)=PA:GOTO 520 

600 II=PX(J)¡II=PIX(J+I)¡IF IXiOIKIXidl) THEN J=J+1¡RETURN 

610 IF IXt(II)>IXt(II) THEN RETURN 

620 PRINT DiRt(l)IXX(ll):FOR KK=1 TO NC:INPUT VIKKKhNEXT 

630 PRINT MRtmiXXIIDsFOR KK=1 TO NC:INPUT V2ÍIKK)¡NEXT:PRlNT Di 

640 II=VT(0):IF VI(II)<V24(II) OR NOT NI THEN J=J+1¡RETURN 

650 II=VT(0):IF VI(II)>V2t<II) OR NOT NI THEN RETURN 

660 FOR KK=1 TO NI:II=VT(KK) 

670 IF TP(II!=1 THEN IF VI*(II)<V2*(II) THEN J=J+1:RETURN 

6B0 IF TP(II)=2 THEN IF VAL<VI*(II))<VAL(V2*(II)) THEN J=Jt1:RETURN 

690 IF TP(11)=1 THEN IF VI*<11)=V2*(II) THEN NEXT 

695 IF TP(11> =2 THEN IF VAL(VI4<11))=VAL(V2*(II)) THEN NEXT 

699 NEXT 

BOO PRINT D4R*(1)IXX:FOR KK=1 TO NC:INPUT V1*(KK):NEXT 

B10 PRINT D*Rt(l)IXX(PIZ(J)):FOR KK=1 TO NC:INPUT V24IKK):NEXT¡PRINT Di 

820 IF=VT(0):IF VU(IIXV2í(II) THEN 890 

830 IF (Vli(II)>IF V2t(II>) OR NOT NI THEN 565 

840 FOR KK=1 TO NI:II=VT(KK) 

850 IF TP(11) = 1 THEN IF Vli(11)<V2*(11> THEN 885 

860 IF TP(11) =2 THEN IF VALtVUlII)XVAL(V21 (11)) THEN 885 

862 IF TP(II)=1 THEN IF Vli(II)=V2*!II) THEN NEXT 

870 IF TP(11)=2 THEN IF VAL(VI*(11))=VAL(V2*(11)) THEN NEXT 

880 GOTO 565 

885 KK=NI:NEXT 

890 PIX(I)=PIX(J)¡GOTO 545 

3508 RETURN 

15000 REM GESTION INDICES 
15005 IF NOT NX THEN RETURN 
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15010 HOME:HTAB 15:PRINT "INDICES EXISTENTES":PRINT 
15020 FDOR 1=1 TO 4 

15030 PRINT I" “LB$(Ifi(I,0);:HATB 15:PRINT n S"S(I+6)“ D"D(I+6);:IF NOT IA(I,2) 

THEN HTAB 22:PRINT "NO"; 

15040 PRINT ■ ACTUALIZADO”:NEXT 
15060 VTAB B:PRINT " 1-ELIHINACIGN" 

15070 PRINT " 2-CREACION" 

15080 PRINT " 3-FIN" 

15100 PRINT : INPUT "CUAL? A*: A7. = VALIA») 

15110 IF A»<1 OR A7.)2 THEN 15000 

15120 ON AH GOSUB 15200,15300 

15130 IF AK>3 THEN 15000 

15140 GOSUB 30000:GDSUB 40000:G0SUB 42000 

15150 RETURN 

15200 REN ELIMINACION INDICE 

15210 PRINT :INPUT "CUAL ELIMINAR? “;A*:A=VAL(A*) 

15220 IF A<1 OR A>4 THEN 15200 
15230 IF NOT IA(A,0> THEN RETURN 

15250 PRINT Dí"DELETE ‘;M1$(0*(A+6),6,7);:RIGHTi(0$(A+6),6) 

15260 IA(A,0)=0:IA(A,2)=0 
15270 RETURN 

15300 REM CREACION INDICE 

15310 FOR P=1 TO 4:IF IA(P,0) THEN NEXT 

15320 IF P>4 THEN RETURN 

15330 VTAB 14:INPUT "QUE CAMPO? ";A4:A=VAL(AÍ)¡CALL -958 
15340 IF <2 OR A> NC OR TP(A)=2 THEN 15330 

15350 VTAB 14-.HTAB 18:PRINT LB*IA)¡HTAB 29:INPUT "LO CONFIRMA? ";A$ 

15355 IF LEFT»(A*,1)<> "S“ THEN 15330 

15360 IA(P,0)=A:VT(0)=A 

15365 GOSUB 16000:PRINT :IF NOT OK THEN 15330 

15370 IAIP,1)=INT((FRE(01-2000)/EM):IF IA(P,1)>LL(A) THEN IA(P,1)=LL(A) 

15375 R(P+6) = IA(P,l)+6:P1 =P+6:PRINT P" -.GOSUB 15700:G0SUB 30000:G0SUB 40000 
15380 IA(P,2) = 1 

153B5 VTAB 20:CALL -95B:HTAB 13:FLASH:PRINT "LECTURA CAMPOS"¡NORMAL 
15390 PRINT D$¡0»(0)¡PRINT DJ;0ÍI1) 

15400 FOR J=1 TO NX 
15410 PRINT D$;R*(0);J 
15420 INPUT A»:INPUT 1X2(J) 

15470 PRINT Dt;R*(l)¡m(J) 

15480 FOR K=1 TO A 
15490 INPUT A» 

15500 NEXT 

15505 IX$(J)=LEFTÍ(Aí,IA(P,1)):NEXT 

15507 VTAB 20¡CALL -958:HTAB 5:FLASH:PRINT "ATENCION 1 ORDENACION EN CURSO":NORMA 
L 

15510 GOSUB 500 

15515 VTAB 20:CALL -958:HTAB 12:FLASH;PRINT "ESCRITURA INDICE”:NORMAL 
15518 ONERR GOTO 17000 
15520 PRINT D»;0»(P+6) 


15525 PRINT D»;W*(P+6)¡0:PRINT NX 

15530 FOR J=1 TO NX 

15540 PRINT Di;Ni(P+6);J 

15550 PRINT IXt(PI%(6))¡PRINT IXX(PIiKJ)) 

15560 NEXT 
15570 PRINT Di;Clt 
15575 PONE 216,0 
15580 60SUB 42000 
15590 RETURN 

15700 REM ASIGNACION DE FICHEROS 

15710 VTAB 20:INPUT "CORRECTAS RANURA Y UNIDAD? ";At 

15720 FI A$="S" OR A»=“" THEN RETURN 

15730 VATB 20:CALL -958¡PRINT "RANURA "S(P1)¡ 

15740 HATB 6:INPUT "";A»:S(P1)=VAL(A») 

15750 VATB 20:HTAB 21¡PRINT "UNIDAD";D(P1); 

15760 HATB 27:INPUT "";Ai:D(P1)=VAL(Ai):PRINT 
157B0 HATB 23:INPUT "MODIFICACIONES? *;AÍ 
15790 IF A»=“S" THEN 15730 
15800 RETURN 

16000 REM CLAVE MULTIPLICACION 
16010 K=1 

16020 VTAB 14+K:INPUT "Y EL CAMPO? “;Ai:B=VAL(Ai):CALL -95B:IF A»="" THEN 16060 
16030 IF B<1 OR B>NC THEN 16020 

16040 VTAB 14+K:HTAB 18:PRINT LBi;:HTAB 29:INPUT "LO CONFIRMA? ";A»:IF LEFTÍIA», 
DO*S" THEN 16020 

16050 VT(K)=B:K=K+1:IF K<5 THEN 16020 

16060 NI=K-1:VTAB 15+K:CALL -958:INPUT “CONFIRMA TODO? "¡Ai 

16070 0K=1:IF LEFTilAi,1)="N* THEN OK=0 

16099 RETURN 

17000 IF PEEK(222X>9 THEN 63900 

17010 VATB 22:HTAB 12:FLASH:PRINT "NO HAY ESPACIO"¡NORMAL 
17020 PRINT ¡PRINT "PULSE RETURN "¡¡GET A» 

17022 VATB 23;PRINT 
17025 GOSUB 15250 
17040 RUN 

20000 REM CREACION NUEVO FICHERO 

20010 HOME:VTAB 9¡PRINT "RANURAS(3)" UNIDAD n D(3):Pl=3:GOSUB 15700:F0R 1=4 TO 6: 

S(I)=S(3):D(1)=D(3):NEXT 

20015 GOSUB 30000:GOSUB 40000 

20020 NC=0¡NM=14 

20030 FOR 1=1 TO NM 

20040 LBi(I)=“":TP(I)=0:LL(I)=0 

20050 NEXT 

20060 GOSUB 63000 

20070 REM ESCRITURA FICHERO L1NK.CTRLIC0NTR0L CADENA) 

20075 VATB 23:CALL -958:FLASH:HTAB 13-.PRINT "PREPARACION"¡NORMAL 
20080 PRINT Di;OÍ(3) 

20090 PRINT Di;Ni(3) 

20100 PRINT NC 


20110 FOR 1=1 TO NC 

20120 PRINT LB»(I)\“TP(I) ”,“LL(I) 

20130 NEXT 
20140 PRINT D$¡C$(3) 

20150 REH INICIALZACION FICHERO ENTRY 
20160 PRINT D$:Q$(4) 

20170 FOR 1=0 TO EM 
20180 PRINT D$;H$(4);I 
20190 PRINT 0 
20200 NEXT 
20210 PRINT D*;C$(4) 

20220 PRINT D»;0»(5) 

20230 PRINT DJ;WJ(5);0 
20240 PRINT 1 
20250 PRINT DÍ;C«(5);0 
20260 FL=1:DF=0 
20270 GOSUB 42000 
20280 GOSUB 40000 
20285 R(6)=LR:60SUB 30000 
20290 RETURN 

25000 REH PARAMETROS IMPRESION 

25010 HOME:HATB 12:PRINT 'IMPRESORA TIPO:" 

25020 VATB 5:HATB 5:IF NOT PT THEN PRINT *EN PARALELO";¡GOTO 25030 
25025 PRINT "EN SERIE"; 

25030 HTAB 20:PRINT "DE ”CN ■ COLUMNAS" 

25040 VTAB(15): HTAB(20): INPUT "MODIFICACIONES? ": A»: IF LEFT*(A*,1> O "S" 
THEN 25100 

25050 VTAB 18:INPUT "IMPRESORA (S/Pl? ":PT=0 
25060 IF At="S" THEN PT=1 

25070 INPUT "MUMERO COLUMNAS? ";AJ:CN=INT (VALIA»)) 

25080 GOTO 25000 
25100 GOSUB 42000 
25110 HOME 

25120 PRINT "COLUMNAS DE IMPRESION? “,CN 
25130 PRINT 

25140 PRINT "LINEAS POR PAGINA? \E(0) 

25150 PRINT:PRINT 

25160 PRINT "AT. CAMPO N. ”,E(1) 

25170 PRINT "FIRMA CAMPO N. ",E(2) 

25180 PRINT "DIRECCION CAMPO N. ",E(3) 

25190 PRINT "CODIGO POSTAL CAMPO N. ",E(4I 
25200 PRINT "CIUDAD CAMPO N. “,E(51 
25210 PRINT 

25220 PRINT "ALTURA ETIQUETA”,E(6) 

25230 PRINT 'ANCHURA ETIQUETA",E(7) 

25240 PRINT "MARGEN SUPERIOR",E(8I 
25250 PRINT "MARGEN IZQUIERDO",E(9) 

25260 PRINT:PRINT :PRINT 

25270 HATB 20:INPUT "MODIFICACIONES? ";At 


25280 A»=LEFTí(A$,1) 

25290 ¡F fií="N' OR At="" THEN 26000 

25300 FOR 1=0 TO 9 

25310 VTAB 3+1+2*(I>0)+(I>5):HTAB 33 

25320 INPUT “"¡AJ:¡F AJO" 11 THEN E(II=INT (VALIAS)) 

25325 VTAB 3+1+2*<I>0)+(I>5):HTAB 33:PRINT Eli)" " 

25330 NEXT 

25340 IF E(6)<E(8)+4 THEN 25300 
25350 ¡F E(7)<E!9)+20 THEN 25300 
25390 GOTO 25110 
26000 GOSUB 30000 
26010 RETURN 

30000 REM ESCRITURA DEL SIST.CTRL (CONTROL DEL SISTEMA). 

30010 PRINT D»;01»"SIST.CTRL,S6,D1" 

30020 PRINT 5»;M1$"SIST.CTRL" 

30030 PRINT NC","EH 

30035 FOR 1=0 TO 9:PRINT E(I)¡NEXT 

30040 FOR 1=1 TO NC:PRINT LB*(I!",”TP(I>“,“LL(I):NEXT 

30050 RESTQRE 

30060 FOR 1=0 TO 10:READ A1:PRINT A*","R(I)","S(I)“,"D(I):NEXT 
30070 PRINT D*;Clt"SIST.CTRL" 

30080 RETURN 

35000 REH LECTURA FICHERO BD.CTRL 
35010 PRINT D$;0J(2) 

35020 PRINT Dt;RÍ(2) 

35030 INPUT IA(I,0),IA(I,1)IA(¡,2) 

35040 FOR 1=1 TO 4 
35060 NEXT 
35070 PRINT D»;C$(2) 

35080 RETURN 

40000 REM LECTURA DEL FICHERO SITS.CTRL 
40010 B$(0)="’:BJ(1)=",R" 

40020 PRINT D»;1»"SIST.CTRL,S6,D1" 

40030 PRINT D$;R1$"SIST.CTRL" 

40040 INPUT NC,EM 

40045 FOR 1=0 TO 9:INPUT E(I):NEXT 

40050 FOR 1=1 TO NC:INPUT LBt(I),TP(I),LL(I!¡NEXT 

40060 FOR 1=0 TO 10 

40070 L$=“":INPUT AJ,R(I),S(I),D(I!:IF R(I) THEN LS=",L"+STR*(R(I)) 
40080 Dt(11=01J+A$+Lt+",S"+STRt(S(I))+*,D“+STRt(D(I)) 

40090 RJ(I)=R1Í+AÍ+BÍ(R(I)>0! 

40100 H$(I)=Nl»tA$+Bt(R(I) >0) 

40110 C»(I)=C1J+A$ 

40120 NEXT 

40130 PRINT DíjClí’SIST.CTRL" 

40140 RETURN 

42000 REM ESCRITURA DEL FICHERO BD.CTRL (CONTROL BASE DE DATOS). 
42010 PRINT D$;D$(2) 

42020 PRINT Dt;H$(2) 


«030 PRINT NX","EA","FL“,"PT",“CN","DF 
42040 FOR 1=1 TO 4 

42050 PRINT IA(1,0)",*IA(1,1)", IA(1,2) 

42060 NEXT 
42070 PRINT D*;Ct(2) 

42080 RETURN 

60000 MENU PRINCIPAL PROSRANA CONFIGURACION DEL SISTEMA 

60010 GOSUB 62000 

60020 ONERR GOTO 60050 

60030 GOSUB 40000:G0SUB 35000 

60035 POKE 216,0 

60040 SOTO 60500 

60050 REM INICIALIZACION 

60060 IF PEEK(222)<>5 THEN 63900 

60070 POKE 216,0 

60075 NEXT 

60090 GOSUB 62500 

60095 RI0!=LL(1)+6:R(1)=LR 

60100 GOSUB 30000 

60110 GOSUB 40000 

60120 GOSUB 42000 

60150 REM ESCRITURA FICHEROS MAESTROS 

60155 VTAB 22:CALL -958:HTAB 4:INPUT "CUANTOS REGISTROS? ";A$:A=VAL(AJ) 
60158 HTAB 8:FLASH:PRINT "COMPRUEBO SI ESTAN":NORMAL 
60160 ONERR GOTO 60360 
60190 PRINT Di;Oi(0) 

60200 PRINT Di;Oi(1) 

60205 PRINT DiWi(0)0:PRINT ‘"¡PRINT 0:PRINT DiMi(1)0:PRINT "" 

60210 FOR 1=1 TO A 
60220 PRINT DÍ;WÍ(0);I 
60230 PRINT FRijPRINT I 
60240 PRINT Di;Hi(l);I 
60250 PRINT ST* 

60260 NEXT 
60270 1=1+1 

60280 PRINT DÍ;C1Í:EM=1 

60290 VTAB 23:CALL -958:HTAB 1:PRINT "NUMERO MAXIMO DE REGISTROS: ”;EM; 

60300 HTAB 26:INPUT "MODIFICACIONES? "¡Ai 

60310 IF LEFTi<Ai,1)="N“ THEN GOSUB 30000:G0SUB 42000:GOTO 60500 

60320 IF LEFTtlAt,1)<>"S" THEN 60290 

60330 PRINT DfELININACION FICHERO MST.INX" 

60340 PRINT Dt’ELIMINACION FICHERO MST.FL" 

60350 GOTO 60090 

60360 IF PEEK1222I09 THEN 63900 
60370 ONERR GOTO 60460 
60380 PRINT Di;0í(0) 

60390 PRINT D$;0i(l) 

60400 1=1+1 

60410 PRINT Di;Ri(0);I 


60420 INPUT A$ 

60430 PRINT Dt;RÍ(l);I 

60440 INPUT At 

60450 POKE 216,0:GOTO 60280 

60460 IF PEEK(222)<>5 THEN 63900 

60470 PRINT Dt;CU 

60480 GOTO 60380 

60500 REM MENU PRINCIPAL PR06RAMA CONFIGURACION SISTEMA 
60505 DIM IXí(EM),IXIEMI,PIX(EM) 

60510 HOME:HTAB IOiPRINT "RECDNFIGURACION SISTEMAS” 

60520 VTAB 5 

60530 PRINT “ 1- ACTUALIZACION INDICES ADICIONALES" 

60540 PRINT ¡PRINT " 2- CREACION ARCHIVOS CONCATENADOS" 

60550 PRINT ¡PRINT " 3- CONFIGURACION IMPRESORA" 

60560 PRINT ¡PRINT ■ 4- RETORNO AL MENU PRINCIPAL" 

60570 VTAB 22:HTAB 20;PRINT "B.8.I." 

60600 VTAB 15:HTAB 10:INPUT "CUAL? “;Ai 
60610 I=VAL(Ai) 

60620 IF I<1 OR I>4 THEN 60510 
60630 ON GOSUB 15000,20000,25000,61000 
60640 GOTO 60510 

61000 REM RETORNO A LA BASE DE DATOS 

61010 PRINT Ot,Clt 

61020 PRINT DÍ"RUNL060,S6,Di" 

62000 REM INICIALIZACION VARIABLES 
62010 Di=CHRÍ(4) 

62020 Tí= " 

62030 NM=14 

62040 DIM TP(NM),LL(NM),LBi(NM),LD(1), 10(4,2),VIKNM!,V2Í(NM) 
62050 FR$=CHRÍ(95) 

62100 Dlt="OPEN“ 

62110 Rlt="READ" 

62120 WH="HRITE" 

62130 C1Í="CL0SE" 

62160 RETURN 
62500 REM PRIMERA VEZ 
62510 HOME:CN=80:RESTORE 
62520 FOR 1=0 TO 10:READ Ai:NEXT 
62530 FOR 1=0 TO 10:READ R(I):NEXT 
62540 FOR 1=0 TO 10:READ Sil)¡NEXT 
62550 FOR 1=0 TO 10:READ D(I):NEXT 
62555 FOR 1=0 TO 9¡READ E(I):NEXT 

62560 VATB 9:HTAB 9:INPUT "BASE DE DATOS EN UNIDAD:Ai:A=VAL(Ai) 

62570 IF AOl AND A<>2 THEN 62560 

62580 PRINT :HATB 22:INPUT "SEGURO? ";Aí 

62590 IF LEFTÍlAi,1)<>"S" THEN 62560 

62600 FOR 1=0 T02:D<I)=A:NEXT 

63000 REM CONFIGURACION DEL SISTEMA 

63020 HOME:HTAB 18:PRINT "CONFIGURACION DEL SISTEMA" 
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63030 HTA8 13:PRINT "CUANTOS CAMPOS?! n ;:IF NC THEN PRINT NC; 

63040 1F NDNM OR NC<1 THEN 63020 
63050 VATB 2:HTftE 27:CALL -86B-.PRINT NC 

63060 VATB 4:HTAB 11:PRINT “NOMBRE";:HTAB 21:PRINT 'TIPO (A/N>“;:HTAB 25:PR!NT 11 
LONGITUD" 

63070 FOR 1=1 TO NC 

63080 VATB I+5:CALL -868: IF IMO THEN HTAB 2 
63090 PRINT I;“CAMPO"; 

63100 HTAB 10:IF LBÍÍDO"" THEN PRINT LBt(I); 

63110 HTAB 10:INPUT 

63113 IF A$="“ AND LB*(I)=“" THEN 63080 
63116 IF A$<>"’ THEN LBt(I)=A* 

63120 VTAB I+5:HTAB 10¡PRINT LBí(I) 

63140 IF TP(I)=1 THEN INPUT ’ALFANUMERICO “;Aí 
63145 IF TP(I)=2 THEN INPUT " NUMERICO ";A$ 

63150 IF TP(I)=0 THEN INPUT * “;AJ 
63160 VTAB I*5:HTAB 20 

63170 IF A$="A" THEN TP(I! = 1:CALL -868:PRINT 11 ALFANUMERICO":GOTO 63200 
63180 IF At= u N’ THEN TP(I)=2:CALL -868-.PRINT ■ NUMERICO “¡SOTO 63200 
63190 IF AJO" OR TP(I)=0 THEN 63130 
63200 VTAB I+5:HTAB 35:CALL -868 

63210 IF LL(I)<>0 THEN PRINT LEFT*(T*,4-LEN(STR$(LL(I))));LL(I);:HTAB 35 
63220 INPUT "”;A* 

63230 IF Ai= ,, “ AND NOT LL(I) THEN 63200 
63240 IF AJO"" THEN LL(I) = INT (VAL(LEFT*(A*,3))) 

63250 IF LLIIKi OR LL(I)>29 THEN 63200 

63260 VTAB I+5:HTAB 35;CALL -B68:PRINT LEFT*(Tt,4-LEN(STRt(LL(I))));LL(I) 

63270 NEXT 

63280 LR=NC:FOR 1=1 TO NC:LR=LR+LL(I):NEXT 
63290 VTAB 2¡:PRINT "LONGITUD REGISTRO ”LR" BYTES" 

63300 VTAB 23:HTAB 20:INPUT "MODIFICAR? ";A* 

63310 IF LEFT*(Al,1)<>“N" THEN 63000 
63320 STt=‘" 

63330 J=LR-1:IFJ>255 THEN J=255 
63340 FOR 1=1 TO J:ST*=ST*+FR$:NEXT 
63350 RETURN 

63800 DATA "MST.INX",“MST.FL","DB.CTRL”,"LNK.CTRL","LNK.ENTRY","LNK.PTR",“LNK.FR 
”,"INDEX.1","INDEX.2","INDEX.3",“INDEX.4" 

63810 DATA 1,1,0,0,5,5,1,1,1,1,1 
63820 DATA 6,6,6,6,6,6,6,6,6,6,6 
63830 DATA 1,1,1,2,2,2,2,2,2,2,2 
63840 DATA 66,0,0,0,0,0,6,39,1,4 

63900 HOME:FLASH:VTAB 10:HTAB 12:PRINT “CODIGO ERROR = "PEEK(222):NORMAL:END 


Programa de chequeo 


10 GOTO 60000 

100 rem immmmmiiitiimm 

101 REM tí APPLE II ti 

102 REM tt ti 

103 REM tt BASE DE DATOS PERSONAL tt 

104 REM tmtttttntttttttttittttttt 
200 GR:ER=0 

210 FOR 1=1 TO EM 

220 PRINT Rt(0);I:INPUT Ai:INPUT A 

225 IF(1<=EA) AND (AtOFRt) THEN PRINT RUDA:INPUT AAt:IF AtOAAt THEN ER=1 
230 IZ(A)=IX(A)+1 

240 COLOR =17.(Al:IF I7(A)>15 THEN COLOR =15 
250 G=A:IF EMM599 THEN G=lNT(1599tA/EM) 

260 Y=INT (G/4O):X=G-Yi4O:PL0T X,Y 

270 NEXT ¡PRINT Di 

300 IF I2(01>0 THEN ER=1 

310 FOR 1=1 TO EM :IF 17(1)01 THEN ER=1 

320 NEXT 

330 RETURN 

1000 REM LECTURA DEL FICHERO SIST.CTRL 
1010 B*(0)="":B*(1)=" ,R" 

1020 PRINT 01$"SIST.CTRL,S6,D1" 

1030 PRINT R1$“SIST.CTRL":INPUT NC(0),EM 
1040 FOR 1=0 TO 9:INPUT E(1):NEXT :LP=E(0) 

1050 FOR 1=0 TO NC(O):INPUT LB*(I,0),TP(I,0),LL(I,O):NEXT 
1060 FOR 1=0 TO 10 

1070 L*="“:INPUT A*,R(I1,S(I1,D(I):IF R(I) THEN L»=" ,L"+STR$(R(I)) 

1080 D*(I)= 01t+A*+L*+" ,S*+STR*(S(I))+“ ,D"+STR*(D(I)) 

1090 R*(I)= R1*+A*+B*(R(I)>0) 

1100 Wt(I!= W1*+A*+B*(R(I)>0) 

1110 C$(I)= Cl*+A* 

1120 NEXT 

1130 PRINT C1* ,I SIST.CTRL" 

1140 RETURN 

1500 REM LECTURA DEL FICHERO BD.CTRL 
1510 PRINT O*(2) 

1520 PRINT R*(2):INPUT NX,EA,PL,PT,CN,DF 

1540 FOR 1=1 TO 4:INPUT IA(I,0),IA(I,1),IA(I,2):NEXT 

1570 PRINT C*(2) 

1580 RETURN 

! 2000 REM HEAPSORT 

2005 FOR L=0 TO EA:IX(L)=L:NEXT 

2010 IF EA=1 THEN RETURN 

2015 L=INT(EA/2)+1: R=EA 

2020 IF L>1 THEN L=L-1:A=I%(L>:GOTO 2040 

2025 A=IX1R):I2(R!=I2(1):R=R-1 
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2030 IF R=1 THEN IX(1)=ft:RETURN 
2040 J=L 
2045 I=J:J=2*J 

2050 ¡F J>R THEN IXÍIÍ=A:G0T0 2020 

2055 IF J<R THEN PRINT Rí(1);IX(J):INPUT AÍ:PRINT Rt(!),IXIJ+l):INPUT BS:IF At<B 
i THEN J=J+1 

2060 PRINT R$<í!;A:INPUT Ai:PRINT R$(I),IX(J):INPUT Bi:IF A$<B$ THEN I7.(I)=I 
l (J): GOTO 2045 
2065 IX(I)=A:GOTD 2020 
20000 REM COMPROBACION FICHERO MAESTRO 
20010 60SUB 62000:60SUB 1000:60SUB 1500 
20020 DIM 17.(EM) 

20030 PRINT 0$(01 ¡PRINT Oíd) 

20100 GOSUB 200 
20250 IF ER THEN 21000 
20290 HOME:PRINT Cli 

20300 VTAB 21:HTAB 12:PRINT “TODO CORRECTO !“ 

20310 PRINT :HTAB 12:INPUT “PULSE RETURN";Ai 

20320 RETURN 

21000 REM MODIF. l’NIV 

21005 GOSUB 50000:IF NOT C THEN PRINT Cli:RETURN 
21007 HOME :VTAB 22:HTAB 10:PRINT “INTENTO DE CORRECION' 

21010 PRINT Hl(0),0:PRINT "“-.PRINT O 

21020 IF EA<EM THEN FOR I=EA+1 TO EM:PRINT NtIO)¡I:PRINT FRÍ:PRINT I:NEXT 

21090 FOR 1=0 TO EM:IX(I)=0:NEXT 

21100 GOSUB 200:IF NOT ER THEN 20290 

21200 GOSUB 200 

21300 FOR 1=1 TO EA 

21310 PRINT Ri(l)r/(I):INPUT A7. 

21320 PRINT Ni(0)I:PRINT IX(I) 

21330 NEXT ¡PRINT Di 

21400 FOR 1=1 TO EM:IX(I)=0:NEXT 

21410 GOSUB 200:IF NOT ER THEN 20290 

21500 HOME :VTAB 21:HTAB 10:PRINT “IMPOSIBLE SUBSANAR' 1 

21510 PRINT ¡HTAB 13:INPUT "(PULSE RETURN)’;Ai 

21520 PRINT Cli 

21530 RETURN 

40000 REM COMPROBACION CADENA 
40010 GOSUB 62000:GOSUB 1000:GOSUB 1500 
40020 IF NOT PL THEN RETURN 
40030 PRINT Ot(4>:PRINT Di(5) 

40040 PRINT Ri(5)¡INPUT DL 
40050 DL=DL-1 
40060 DIM VX(DL):GR 
40100 FOR 1=0 TO EM 
40110 PRINT Ri(4)1¡INPUT P 
40120 IF P THEN GOSUB 40300 
40130 NEXT 
40140 ER=0 
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40150 FOR 1=0 TO DL 

40160 IF VXIIíOl THEN IF I THEN ER=1 

40170 NEXT ¡PRINT Di 

40180 IF NOT GR THEN 20290 

40200 GOSUB 50000: IF NOT C THEN PRINT CÜ:RETURN 

40210 HOME:VTAB 22:HTAB 10:PRINT “INTENTO DE CORRECCION" 

40220 60T0 40500 

40300 VX(P)=VX<P)+1 

40302 COLOR =V7.(P):IF VX(P)>15 THEN COLOR =15 
40304 G=P:IF DL>1599 THEN G=INT(1599*P/DL) 

40306 Y=INT(G/40):X=G-VJ40:PL0T X,Y 
40310 PRINT Ri(5)P:INPUT P 
40320 IF P THEN 40300 
40340 RETURN 

40500 PRINT Rl(4)0:INPUT IL 

40505 L=IL 

40510 FOR 1=1 TO DL 

40520 IF VX(I)=0 THEN PRINT MÍ(5)I:PRINT IL:L=I:VX(I)=1 

40530 NEXT 

40550 FOR I=L TO DL 

40560 IF VX(I> =0 THEN PRINT Mi(5)1¡PRINT L:L=1 
40570 NEXT 

40600 PRINT Wi(4)0:PRINT L 
40610 PRINT Di 
40700 HOME:PRINT CU 

40720 VTAB 21:HTAB 10:PRINT “VOLVER A INTENTAR VERIFICACION" 
40730 HTAB 10:PRINT "NO PUEDO HACER OTRO" 

40740 HTAB 10: INPUT “PULSE RETURN";Ai 
40750 RETURN 

50000 HOME:VTAB 21:HTAB 15:FLASH:PRINT “ERROR":NORMAL 
50010 HTAB 1:PRINT “SE RECOMIENDA UTILIZAR DISCOS COPIA" 
50020 HTAB 2:PRINT "PULSE (F) PARA TERMINAR” 

50030 HTAB 2:PRINT "PULSE (0 PARA INTENTAR LA CORRECCION' 
50040 PRINT :C=(A1="C“) 

50050 IF AlO"F" AND NOT C THEN 50000 

50060 HOME 

50199 RETURN 

60000 SEN MENU PRINCIPAL 

60100 TEXT:HOME:ClEAR 

60110 VTAB 6:HTAB 4:PRINT " 1- VERIFICAR ARCHIVO 1“ 

60120 VTAB 8.-HT6B 4:PRINT “ 2- VERIFICAR ARCHIVO 2“ 

60130 VTAB 10:HTfiB 4:PRINT " 3- MENU PRINCIPAL" 

60140 VTAB ¡2:HTAB 4;PRINT " 4- FIN" 

60200 VTAB 23:HTAB 20:PRINT 11 B.B.I.’ 

60210 VTAB 16:H!AB 10:INPUT “CUAL? “;Ai 
60220 ON VAL(Ai) GOSUB 20000,40000,60400,60300 
60230 GOTO 60000 
60300 REM FIN 
60310 PRINT CU 


¿0320 PRINT “L0CKL060,DI“ 

¿0330 PRINT "MAXFILES 3* 

¿0340 HOME¡PRINT "ADIOS !" 

¿0350 END 

¿0400 REA VOLVER AL MENU PRINCIPAL 
¿0410 PRINT "RUNLOGD,DI“ 

¿2000 REM INICIALIZACION VARIABLES 

¿2010 I=0:Tlí=“- i ’:F0R J=1 TQ 4:T1*=T1$+Tí$:NEXT 

¿2020 D$=CHRí(4l:FR$=CHR»(95) 

¿2030 NM=15 

¿2040 DIN LB$(NH, 1!,TP(NM, 11,LL(NN, 1),RB$(NN,URVÍINIVl!,EY$(25) 

¿2050 01 *=D*+ n 0PEN":R1$=D$+"READ":V1*=D*+"WRITE":C 1 $=DÍ+“CLOSE" 

¿20¿0 DIN HI*(NH,n,NA$(NM,l) 

¿2070 FOR 1=1 TO NM:FOR J=0 TO 1¡HA»ÍI,J)=FR$¡LB1(NN,J)="TDTAL , ¡NEXT 3,1 
¿2200 RETURN 
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” n anteriores volúmenes de la Biblioteca 
mm Básica Informática nos hemos acercado ya 
MT al manejo y almacenamiento de la infor- 
mación de una forma informatizada. He- 
mos visto también cómo se lograba esto 
/ mediante un programa comercial (el dBA- 

SE). 

Cuando intentamos aplicar estos conoci¬ 
mientos a un ordenador personal nos encontramos, sin 
embargo, con una serie de limitaciones (como la memo¬ 
ria) que impiden un aprovechamiento óptimo de nuestro 
banco de datos. En este volumen veremos cómo diseñar 
nuestra propia base de datos para adaptarla expresamen¬ 
te a nuestras necesidades. 


395 pts. 

(incluido IVA) 





